Function ChercheSituation(Id$)
ChercheSituation = ""
With Sheets("2019")
If Application.CountIf(.[D:D], Id) > 0 Then
DL = .Cells(.Cells.Rows.Count, "D").End(xlUp).Row
For L = 2 To DL
If .Cells(L, "D") = Id And .Cells(L, "E") <> "" Then
ChercheSituation = .Cells(L, "E") & " en 2019 à " & .Cells(L, "A")
Exit Function
End If
Next L
End If
End With
End Function