Vba : Doublons qui ne s'efface pas

Bonjour,

Je suis en train de faire un fichier un peu compliqué et j'ai besoin d'une formule anti-doublon. J'ai trouvé ce code sur internet, mais chez moi il se contente de classer et ne supprimes pas les doublons.

Feuil1.Range("A1").Select
ActiveCell.CurrentRegion.Sort Key1:=Feuil1.Range("A1"), Order1:=xlAscending, Header:=xlYes

donnee1 = ActiveCell
ActiveCell.Offset(1, 0).Select
While ActiveCell <> ""
If ActiveCell = donnee1 Then
ActiveCell.EntireRow.Delete
ActiveCell.Offset(-1, 0).Select
donnee1 = ActiveCell
ActiveCell.Offset(1, 0).Select
Else
donnee1 = ActiveCell
ActiveCell.Offset(1, 0).Select
End If
Wend

Quelqu'un a-t-il une idée de ce qui peut clocher ?

Merci d'avance !!!