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 : Sélectionner tout - Visualiser dans une fenêtre à part
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 : Sélectionner tout - Visualiser dans une fenêtre à part
Option Compare Text
en tête de module.