Private Sub Workbook_Open()
Dim n&, ligne&
With Sheets("tableau de bord")
'derniere ligne de la colonne G
ligne = .Columns(7).Find("*", , , , xlByColumns, xlPrevious).Row
For n = 2 To ligne
'boucle sur les date si la diff?rence entre aujourdhui et la date est inferieure ? 6 alert passe ? 1
If CDate(Range("G" & n)) - Date < 8 Then MsgBox "Les délais doivent être vérifiés pour ne pas être oubliés.", vbCritical: Exit Sub
Next
End With
End Sub