Sub SuppressionDoublons()
Dim plage As Range, i As Long
With Feuil2
Set plage = .Range("A1:C" & .Range("A" & .Rows.Count).End(xlUp).Row)
With plage
.Sort Key1:=.Cells(2, 1), Order1:=xlAscending, _
Key2:=.Cells(2, 2), Order2:=xlDescending, _
Header:=xlGuess, OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom
For i = .Rows.Count To 2 Step -1
If .Cells(i, 1) = .Cells(i - 1, 1) And .Cells(i, 2) < .Cells(i - 1, 2) Then .Cells(i, 1).EntireRow.Delete
Next i
End With
End With
End Sub