Excel VBA copie ligne d'un onglet à un autres sans répétitions

Bonjour,
j'ai crée une macro pour copier une ligne d'un onglet contenant certaines valeur, dans l'onglet de destination. Quand je lance et relance la macro, la ligne se copie et recopie à la suite. Ainsi, je n'ai que des doublons. Ce que je voudrais serait de lancer plusieurs fois la macro mais n'avoir qu'une seule copie des lignes dans l'onglet de destination.

Je vous joins le code:

Sub A1()

Dim Lig As Long
Dim Col As String
Dim NbrLig As Long
Dim NumLig As Long

Sheets("A1").Activate ' feuille de destination

Col = "A"
NumLig = 3
With Sheets("27 abr 2016") ' feuille source'
NbrLig = .Cells(65536, Col).End(xlUp).Row
For Lig = 4 To NbrLig
If .Cells(Lig, Col).Value = "A1" Then
.Cells(Lig, Col).EntireRow.Copy
NumLig = NumLig + 1
Sheets("A1").Cells(NumLig, 1).Insert Shift

End If
Next
End With

End Sub


Merci de votre aide!!