Tu peux trouver la réponse ici :

http://www.tout-savoir.net/...

Bonjour,

Vous pouvez essayer ce scripts. Il suffit juste de l'intégrer dans un module et exécuter la fonction.

Sub supprimeDoublons()

MaCellule = ("B6")
Range(MaCellule).Select
ActiveCell.CurrentRegion.Sort Key1:=Range(MaCellule), 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
End Sub