Ok,
Mais dans votre code il y a la ligne
Do While Cells(i, "A") <> ""
Et en ligne 15 vous sortez donc de la boucle !!!!!!
Il ne faut pas de ligne vide, ni de colonne vide dans un tableau de données Excel.
Pour faire apparaitre les lignes en doublons, une petite MFC et le tour est joué.
Bien à vous
Jp