supprimer doublon suivant date

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