En faite pour le moment c'est pas bon, je remet un fichier test pour que la formule elle corresponde a la colonne F bleue, car cela ne fonctionne pas.
SI cela peu aider j'avais cette formule en vba c'est celle qui cherche la date la plus récente.
.Range("E2").FormulaArray = "=MAX(IF($B$2:$B$" & Nblig & "=$B2,$A$2:$A$" & Nblig & ",""""))"
.Range("E2").AutoFill Destination:=Range("E2:E" & Nblig), Type:=xlFillDefault