Bonsoir cher ami,
Cette macros tri et élimine les doublons, je ne sais si c'est exactement ce que tu souhaites.
Sub Doublons()
With Selection
.Range('A1').Sort Key1:=.Range('A1'), Order1:=xlAscending
Set currentcell = .Range('A1')
Application.ScreenUpdating = False
Do While Not IsEmpty(currentcell)
Set nextcell = currentcell.Offset(1, 0)
If nextcell.Value = currentcell.Value Then
currentcell.Delete (xlUp)
End If
Set currentcell = nextcell
Loop
End With
End Sub
Cordialement à toi et au forum
Jean