Afficher un message d'alerte quand une date arrive

Bonjourà tous,

Je suis actuellement en train de créer un fichier excel pour gérer des réceptions de documents. Voici l'image d'un exemple de tableau :

Date de réception Date suivante

10/04/2012 10/05/2012

20/03/2012 20/04/2012

19/03/2012 19/04/2012

Je voudrais qu'un message d'alerte s'affiche à l'ouverture d'Excel lorsque les "dates suivantes" sont égales à la date d'aujourd'hui + 5 jours et 4,3,2,1 et le jour J.

Pourriez vous m'aider SVP

Salut dowdow44 et le forum

Petit rappel : pas de devin ou de télépathe sur ce site

en admettant que F1 soit la feuille concernée, et que Date suivante soit en colonne B :

Dans le module ThisWorkBook :

Private Sub Workbook_Open()
Dim Cel As Range
With Sheets("F1")
    For Each Cel In .Columns(2)
        If Cel > Date + 5 Then
            MsgBox "La Date est atteinte ou dépassée"
            .Activate
            Cel.Activate
        End If
    Next Cel
End With
End Sub