Dim Cel As Range, iRow&,Périmés$
iRow = Range("L" & Rows.Count).End(xlUp).Row
For Each Cel In Range("L3:L" & iRow)
If Len(Cel) > 0 Then
If Date >= DateAdd("yyyy", 3, Cel.Value) Then
Périmés = Périmés & vbTab & UCase(Cells(Cel.Row, "C")) & " " & Application.Proper(Cells(Cel.Row, "D")) & vbCrLf
End If
End If
Next
MsgBox "Le certificat des personnes suivantes est périmé:" & vbCrLf & Périmés, vbExclamation, "Péremption Certificat"