Bonjour,
Alors on fait du crossposting !
Pas très sérieux...
Sinon, mets tes tes données sous forme de tableau (structuré). Nomme ce tableau Données et copie la procédure ci-dessous dans un module standard.
Cdlt.
Public Sub SortAndDeleteDuplicates()
Dim lo As ListObject
Set lo = Range("Données").ListObject
With lo
'Etape 1 : tri
.Sort.SortFields.Add Key:=.ListColumns(1).DataBodyRange, Order:=xlDescending
.Sort.SortFields.Add Key:=.ListColumns(2).DataBodyRange, Order:=xlAscending
.Sort.Header = xlYes
.Sort.Apply
'Etape 2 : suprression doublons
.Range.RemoveDuplicates Columns:=Array(1, 2)
'Etape 3 : tri (si nécessaire !)
.Sort.SortFields.Add Key:=.ListColumns(1).DataBodyRange, Order:=xlAscending
.Sort.Header = xlYes
.Sort.Apply
.Sort.SortFields.Clear
End With
End Sub