Sub test()
Dim cellule As Range, max1 As Date, clé As String, ws As Worksheet
Set ws = Worksheets("feuil1")
max1 = Application.Max(ws.Range("Tableau1[Dates sorties]"))
clé = ws.Range("Tableau1[Dates sorties]").Find(max1).Offset(0, -4)
For Each cellule In ws.Range("Tableau1[Dates entrées]")
Debug.Print cellule.Address
If cellule >= max1 And cellule.Offset(0, -2) = clé And cellule.Off
[QUOTE="Wayki, post: 20472342, member: 344292"]
max1 = Application.Max(ws.Range("Tableau1[Dates sorties]"))
[/QUOTE]
set(0, 2) = "" Then
cellule.Offset(0, 11).Copy
cellule.Offset(0, 13).PasteSpecial (xlPasteValues)
Else
If cellule.Offset(, 2) = max1 And cellule.Offset(, -2) = clé Then
cellule.Offset(, 11).Copy
cellule.Offset(, 13).PasteSpecial Paste:=xlValues
End If
End If
Next cellule
End Sub