Copier-coller ligne en fonction d'une valeur de cellule

Bonjour a tous et a toutes.

Voila je suis petit nouveau sur ce forum et aujourd'hui je me tourne vers vous parce que j'ai un problème.

Je vous explique :

j'ai un fichier mais par clause de confidentialité je présenterai un exemple fictif.

id Personne achat depenses


id Personne achat depenses
1 Pierre voiture 6000
2 Jean maison 150000
3 Marcel velo 200
4 Veronique fleur 15
5 Paulo ordinateur 800
6 Pierre pc portable 900
1 Pierre telephone 150
2 Jean voiture 15000
3 Marcel vetements 300
4 Veronique armoire 600
5 Paulo tableau 150
6 Pierre console 250


je voudrai effectuer un filtre en fonction soit sur l'id soit sur le prenom de la personne pour pouvoir afficher les données correspondantes à l'individu dans un nouvelle onglet ou une nouvelle feuille.
En copiant les lignes dans une nouvelle feuille.
J'ai créer une macro mais étant débutant je n'arrive pas à la réaliser correctement.

la voici :

Sub Macro1()
 
For i = 1 To 14
Sheets.Add
Selection.AutoFilter Field:=2, Criteria1:=Range("B" & i).Value
Range("A1: D13").Select
Selection.Copy
Sheets("Feuil" & i).Select
 
ActiveSheet.Paste
 
Application.CutCopyMode = False
 
Next
End Sub

J'espere ne pas avoir était trop flou ...

En attendant une reponse de votre part.