Private Sub workbook_open()
Dim Dt As Range
Dim Ws As Worksheet
Set Ws = Worksheets("suivi")
For Each Dt In Ws.Range("T4:T102").SpecialCells(xlCellTypeConstants)
If Dt < Date And Dt <> "" And Not Dt.Offset(0, 3) = "effectuée" Then
Dt.Offset(0, 3).Select
MsgBox "AFFAIRE RE1-" & Dt.Offset(0, -18) & " " & " , " & _
Dt & " ", vbExclamation, " Achtung!!!CARTO "
End If
Next Dt
End Sub