Supprimer des données en doublon

[AlainTech]

Comment supprimer des lignes en double dans une feuille Excel?

La question revient très souvent et je n'ai rien vu dans les FAQ.

Petit code tout simple et rapide pour supprimer les lignes qui ont le même contenu dans la colonne A.
On suppose que la feuille est triée sur cette colonne.
Tel quel, ne fonctionne que s'il n'y a pas de trou dans la colonne A.

Code :

1
2
3
4
5
6
7
8
9
10
Sub DeleteDouble() 
  Dim rRange As Range 
  Dim rCell As Range 
  Set rRange = Range([A1], [A1].End(xlDown)) 
  For Each rCell In rRange 
    Do While rCell = rCell.Offset(1, 0) 
      rCell.Offset(1, 0).EntireRow.Delete 
    Loop 
  Next rCell 
End Sub

Edit: Sur une suggestion d'ouskel'n'or... Si un problème de casse (majuscules/minuscules) risque de se présenter, ajouter

Code :

Option Compare Text

en tête de module.