Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Range("A:A"), Target) Is Nothing Then Trier_sans_doublons
End Sub
Sub Trier_sans_doublons()
Application.ScreenUpdating = False
Range("A:A").Copy Range("B1")
Range("B:B").Sort key1:=Range("B1"), order1:=xlDescending, Header:=xlNo
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub