Avec une petite fonction personnalisée ?
Function dernierevenement(prod As Range)
Dim i As Long
For i = Range("A" & Rows.Count).End(xlUp).Row To 2 Step -1
If prod.Value = Range("A" & i) Then
dernierevenement = Range("C" & i)
Exit Function
End If
Next i
End Function
Il suffira de tapper en F2
=dernierevenement(E2)
Puis de trainer