MSGBOX auto open

bonjour le forum

j'utilise le code ci dessous pour faire un suivi des relances



For Each cell In Sheets("FEB").Range("E7:E" & Sheets("FEB").Range("E65536").End(xlUp).Row)

If cell.Value = "Validation ACHATS" Or cell.Value = "Traitement ACHATS" Or cell.Value = "Dispatching" Then
If cell.Offset(0, 13) = "" And cell.Offset(0, 8).Value = (Date + 10) Then.........

j'aimerais qu'à partir du code ci dessus une msgbox s'affiche à l'ouverture du classeur en me disant que des commandes correspondant à ces critères existent dans mon classeur


j ai essayé çà mais ca marche pas


Sub AUTO_OPEN()



Worksheets("FEB").Range("E7:E" & Sheets("FEB").Range("E65536").End(xlUp).Row).Select
If cell.Value = "Validation ACHATS" Or cell.Value = "Traitement ACHATS" Or cell.Value = "Dispatching" And cell.Offset(0, 13) = "" And cell.Offset(0, 8).Value = (Date + 10) Then
MsgBox "Attention, certaines FEB sont à J-10 de la date de livraison souhaitée", vbCritical, "FEB J-10"
End If
End Sub

comment puis je faire?
merci d'avance
bon dimanche