Supprimer les doublons sur une même colonne

Résolu
siamens_duj Messages postés 192 Date d'inscription   Statut Membre Dernière intervention   -  
siamens_duj Messages postés 192 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,

Sauriez-vous m'aider à supprimer les doublons sur une même colonne ?

Mon code me paraît bon mais ne fonctionne pas.

Sub doub()

Dim i As Long
Dim t As Long

i = 2
t = 3

Sheets("Cor").Select

Do While Cells(i, 1).Value <> ""

If Cells(i, 1).Value = Cells(t, 1).Value Then
Cells(t, 1).EntireRow.Delete
t = i + 1
Else

t = t + 1

End If

If Cells(t, 1).Value = "" Then
i = i + 1
t = t + 1
End If
Loop

End Sub


Merci pour votre aide.
A voir également:

5 réponses

ccm81 Messages postés 10909 Date d'inscription   Statut Membre Dernière intervention   2 433
 
Salut michel

XL>=2007 eh oui mais .....

Bonne journée
1