écraser ligne déjà existente par la nouvelle copiée macro xls

Bonjour à tous,

Je vous explique mon problème:

Je copie certaine cellule de ma feuille nommée:"FTD".
Je l'ai copie dans une autre feuille intitulée:"HISTORIC"
Les données se copient à la première ligne vide.
Ce que je veux, c'est lors d'une nouvelle copie, Si les informations en colonne A et B sont identique, effacer la ligne en question et la remplacer par la nouvelle.

Voici ma macro de base:
Sub SAUVEGARDER()

Dim Source As String
Dim Cible As String
Source = "FTD"
Cible = "HISTORIC"


'Transfert données de la fiche ModFaxture vers la fiche Client
Dim LigneEncours As Long
'Chargement du nom des feuilles origine et destination
'Calcul de la ligne courante
LigneEncours = Worksheets(Cible).Range("A" & Rows.Count).End(xlUp).Row + 1
'Copie des valeurs
With Worksheets(Cible)
.Range("A" & LigneEncours) = Worksheets(Source).Range("A2").Value
.Range("B" & LigneEncours) = Worksheets(Source).Range("F2").Value
.Range("C" & LigneEncours) = Worksheets(Source).Range("E40").Value
.Range("D" & LigneEncours) = Worksheets(Source).Range("H40").Value
.Range("E" & LigneEncours) = Worksheets(Source).Range("I40").Value
.Range("F" & LigneEncours) = Worksheets(Source).Range("J40").Value
.Range("G" & LigneEncours) = Worksheets(Source).Range("K40").Value
End With

'
End Sub

Quelqu'un peut-il m'aider svp?

Merci d'avance.