copier ligne en fonction mot dans cellule

Bonjour,

J'ai un problème sur ma macro qui boucle car je ne vois pas comment éviter de recopier les mêmes lignes sans les supprimer.

Sub Copy()

Dim MotCle
Dim i As Byte
Dim C As Range
Dim F As String
Dim Ligne As Long
'On définit les mots clés
MotCle = Array("REQ0")
'On effectue la recherche de chaque mot clé dans la colonne A de la Feuil1
For i = 0 To UBound(MotCle)
Do
Set C = Worksheets("feuil1").Columns(1).Find(MotCle(i), LookIn:=xlValues, lookat:=xlPart)
'Si le mot clé est trouvé
If Not C Is Nothing Then
'On définit le nom de la feuille où sera effectuée la copie
F = "Feuil2"
With Worksheets(F)
'On définit la ligne où sera effectué le collage
Ligne = .Range("F" & Rows.Count).End(xlUp).Row + 1
'On effectue le copier / coller
C.EntireRow.Copy .Range("A" & Ligne)
End With

End If
Loop While Not C Is Nothing
Next i
End Sub


Merci d'avance