bonjour,
solution via une macro, à tester sur une copie du fichier
Sub aargh()
With ActiveSheet.ListObjects(1)
dl = .DataBodyRange.Rows.Count
.Sort.SortFields.Clear
.Sort.SortFields.Add _
Key:=.Range.Cells(1, 1), SortOn:=xlSortOnValues, Order:=xlAscending, _
DataOption:=xlSortTextAsNumbers
.Sort.SortFields.Add _
Key:=.Range.Cells(1, 2), SortOn:=xlSortOnValues, Order:= _
xlAscending, DataOption:=xlSortNormal
.Sort.Header = xlYes
.Sort.MatchCase = False
.Sort.Orientation = xlTopToBottom
.Sort.SortMethod = xlPinYin
.Sort.Apply
For i = dl - 1 To 1 Step -1
If .ListRows(i).Range.Cells(1, 1) = .ListRows(i + 1).Range.Cells(1, 1) Then .ListRows(i).Delete
Next i
End With
End Sub