VBA copie cellules entre 2 fueil ou 2 fichier

Bonjour,

Je rencontre quelques problème sur ma macro.
j'aimerais copier cetaines cellules d'une liste (4000 lignes) dans une autre liste (600 lignes).
Elle on en commun le Nom.

Voici mon sub (je débute en VBA)

Sub ()

ligne = 5
ligne2 = 2

Do
Loop Until Range("A" & ligne) = Empty
ligne = ligne + 1
ligne2 = ligne2 + 1

Sheets("Feuil2").Select
Range("B" & ligne).FormulaR1C1 = Text1

Sheets("Feuil3").Select
Range("G" & ligne2).FormulaR1C1 = Text2

If Text1 = Text2 Then

Sheets("Feuil3").Select
Range("J" & ligne2 & ":" & "K" & ligne2).Select
Selection.Copy
Sheets("Feuil2").Select
Range("D" & ligne2 & ":" & "E" & ligne2).Select
Selection.Paste

End If

End Sub

Pouvez-vous me dire se qui ne vas pas et m'aider à le résoudre ?

Merci à tous !