Function ChercheAnnée()
Application.Volatile
With Worksheets("Controles effectués 2013-2016")
For Each Cel In .Range("C2:C" & .Range("C" & Rows.Count).End(xlUp).Row)
If Cel = Application.ThisCell.Offset(, -1) Then
If Cel.Offset(, -2) >= Year(Date) - 3 Then result = Cel.Offset(, 1) & " " & Cel.Offset(, -2)
End If
Next
End With
If result <> "" Then
ChercheAnnée = "visité en " & result
Else
ChercheAnnée = "non visité depuis 3 ans "
End If
End Function