'Affichage message avertissement selon date butoir et etat
Private Sub workbook_open()
Dim Dt As Range
Dim Ws As Worksheet
Set Ws = Worksheets("Charge de projet")
For Each Dt In Ws.Range("K8:K" & Ws.Range("K65536").End(xlUp).Row)
If Dt < Date And Dt <> "" And Dt.Offset(0, 2) <> "Annulé" And _
Dt.Offset(0, 2) <> "Terminé" Then _
MsgBox "Attention ! Date butoir dépassée pour " & Dt.Offset(0, -7) & " '" & _
Dt & "'", _
vbExclamation, " message d'alerte "
Next Dt
End Sub