Recherche de doublon dans une colonne

Sans macro, avec une formule

1. À gauche de la colonne des données, taper la formule : =si(A1=A2;1;0) (les données sont dans la colonne A)
2. Copier cette formule dans toute la colonne
3. Sélectionner toute la colonne (qui ne comporte que des 0 et des 1)
4. Copier, puis faire aussitôt un collage spécial : coller uniquement les valeurs par-dessus
5. Trier par valeur ascendante : on obtient aussitôt une liste dédoublonnée pour tous les 0 (les doublons ont la valeur 1)

Macro 1

Voici une méthode très simple. La macro parcourt la colonne A et compare chaque ligne avec la précédente. Si la valeur est la même, elle écrit 1 dans la colonne B.

Sub ChercheDoublons()
    Dim ligneFin
    ligneFin = DetermineDerniereLigne(1)
    ActiveSheet.Cells(1, 1).Select
    For Each Cellule In ActiveSheet.Range(Cells(2, 1), Cells(ligneFin, 1))
        If Cellule.Value = Cellule.Offset(-1, 0).Value Then
            Cellule.Offset(0, 1).Value = 1
        End If
    Next
End Sub
Function DetermineDerniereLigne(Colonne As Integer)
    Dim ligneFin
    ligneFin = 1
    Do While Not IsEmpty(ActiveSheet.Cells(ligneFin, Colonne))
        ligneFin = ligneFin + 1
    Loop
    DetermineDerniereLigne = ligneFin
End Function

Il suffit ensuite de trier par colonne B pour avoir une liste dédoublonnée en colonne A.