Bonjour Reglaet, bonjour le forum,
Peut-être comme ça :
Sub Macro1()
Dim O As Worksheet 'déclare la variable O (Onglet)
Dim DL As Integer 'déclare la variable DL (Dernière Ligne)
Dim I As Integer 'déclare la variable I (Incrément)
Set O = Worksheets("Feuil1") 'définit l'onglet O 9à adapter à ton cas)
DL = O.Cells(Application.Rows.Count, "E").End(xlUp).Row 'définit la dernière ligne éditée Dl de la colonne E de l'onglet O
For I = 7 To DL 'boucle sur les lignes I à DL
'si la date en colonne E de la ligne I est supérieure à la date du jour, message
If CDate(O.Cells(I, "E").Value) > Date Then MsgBox "Date périmée ligne : " & I & " !"
Next I 'prochaine ligne de la boucle
End Sub