Tu affectes un objet range à la zone à parcourir
Pour la première recherche, tu utilises sur cet objet la méthode .find pour trouver la première occurence, .findnext pour les suivantes
exemple tiré de l’aide en ligne excel pour chercher la valeur “aaaa”:
With Worksheets(1).Range("a1:a500")
Set c = .Find("aaaa", lookin:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
Do
xxxxxxxxx
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstAddress
End If
End With
A la place des xxxx, tu mets tes lignes pour copier ta sélection dans le fichier de destination.
Pour avoir la ligne entière à partir de la cellule c, tu utilises c.EntireRow