Bonjour.
Sub fezf()
Dim i As Integer
i = 2
Do Until IsEmpty(Cells(i, 1))
If Cells(i, 1).Value = Cells(i + 1, 1).Value And Cells(i, 2).Value = Cells(i + 1, 2).Value Then
If Cells(i, 3).Value < Cells(i + 1, 3).Value Then
Rows(i).Delete
Else
Rows(i + 1).Delete
End If
Else
i = i + 1
End If
Loop
End Sub
A ajuster au cas où tu aies des dates dans le future (qui seraient plus loin que celles actuelles), là je garde les plus récentes.
A ajuster pour le cas de dates identiques (comme tes lignes 4 et 5).
Bonne journée.