re Eric,
Merci pour tes réponses, je vais m'en inspirer
Je cherche simplement à supprimer les doubons dans une colonne.
En attendant j'ai utilisé une boucle "Do While Not" qui me parait très simple d'utilisation.
Tu me diras ce que tu en penses.
Evidement la colonne est trier
Do While Not IsEmpty(Cellulecourante) = True
Set Cellulesuivante = Cellulecourante.Offset(1, 0)
If Cellulesuivante.Value = Cellulecourante.Value Then
Cellulecourante.Delete shift:=xlUp
End If
Set Cellulecourante = Cellulesuivante
Loop