Copier-coller d'une feuille a une autre avec condition et

Bonjour a tous,

Je souhaite copier toutes les lignes de l'onglet "Data" appartenant aux clients listes dans l'onglet "Recherche" sur la feuille appele "Resultat"

Etant novice, j'ai essaye la macro ci-dessous :

Sub text()

derniereLigne = Sheets("Data").Cells(Rows.Count, 1).End(xlUp).Row

For i = 3 To 20
For j = 1 To derniereLigne

Do While Sheets("Recherche").Cells(i, "B") <> ""

If Sheets("Recherche").Cells(i, "B") = Sheets("Data").Cells(j, "B") Then
Sheets("Data").Range("A" & j & ":D" & j).Copy
Sheets("Resultat").Select
Sheets("Resultat").Range("A1").End(xlDown)(2).Paste
End If

Loop

Next
Next

End Sub

Malheureusement, la macro tourne dans le vide sans me dire ce qu'il ne va pas.

Si vous un conseil, ce serait top

Bonjour,

Teste ceci

C'est parfait merci.