Code VBA avec msgbox

Bonjour,

J'aimerais améliorer mon script vba car il affiche une boite de dialogue lorsqu'une date de rappel est dépassée . Or je souhaiterais pouvoir indiquer a excel que j'ai tenu compte de l'alerte en indiquant "oui" dans la colonne suivante.

A l'heure actuelle mon vba est le suivant :

Private Sub Workbook_Open()
For Each cell In Range("E2:E1000")
If cell.Value <= Date And cell.Value <> "" Then
MsgBox "Un dossier a été déposé à la MDPH depuis plus de 5 mois. Se rendre dans l'ongle date dépot mdph afin de savoir quelle famille contacter pour leur demander s'ils ont reçus une notification.", vbExclamation
        End If
    Next

End Sub

Le fichier est ici si besoin :

Merci d'avance

Guillaume

bonsoir,

If cell.Value <= Date And cell.Value <> "" and lcase(cell.offset(,1).value)<> "oui" Then

Merci, ca fonctionne impeccable !

Guillaume Durieux