Private Sub Workbook_Open()
With Sheets("Feuil1")
For lig = 3 To .Cells(Rows.Count, 3).End(xlUp).Row
If .Cells(lig, 21) <= Date Then ch = ch & vbCr & "PCE n° " & .Cells(lig, 3) & " en ligne " & lig
Next lig
End With
MsgBox "Sont en retard ... ou presque: " & vbCr & ch
End Sub