Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
If FilterMode Then ShowAllData 'si la feuille est filtrée
[D:E].Insert 'insertion de 2 colonnes auxiliaires
[A:A].Copy [C1]
With Intersect([C:E], UsedRange.EntireRow)
.Columns(2) = "=LEFT(C1,LEN(C1)-2*ISNUMBER(-MID(C1,2,1)))"
.Columns(3) = "=RIGHT(C1,2)+ROW()/1000000000"
.Value = .Value 'supprime les formules
.Sort [E1], xlDescending, Header:=xlYes 'tri décroissant sur la colonne E
End With
[C1].CurrentRegion.RemoveDuplicates Columns:=2, Header:=xlYes 'supprime les doublons
[D:E].Delete 'suppression des colonnes auxiliaires
End Sub