MsgBox alerte sur date

Bonjour à tous,

Voici ma question : je dispose d'un tableau avec mes agents et des dates de congé maternité (avec la date de début de congé en colonne E). J'aimerai avoir une alerte lorsque le congé doit commencer dans 7 jours par rapport à aujourdh'hui.

Par exemple aujourd'hui 04/03/2015, je voudrai une alerte pour les congés qui débuterons le 11/03/2015.

Dans le code ci-dessous, je n'obtiens que les congé mat déjà commencés, donc inférieur à la date d'aujourdh'hui.

J'ai beau décortiquer, je bloque.

Merci de votre aide.

Option Explicit

Sub Verification()
Dim Nblg As Long
Dim Msg As String
Dim Cel As Range

  Application.ScreenUpdating = False
  With Sheets("Contrats")
    Nblg = .Range("A" & Rows.Count).End(xlUp).Row
    .Range("A3:E" & Nblg).AutoFilter field:=5, Criteria1:="<=" & CSng(Date) + 7
    If Application.Subtotal(103, .Columns("D")) > 1 Then
      For Each Cel In .Range("A4:A" & Nblg).SpecialCells(xlCellTypeVisible)
        Msg = Msg & vbCr & Cel & " : " & Cel.Offset(0, 3) & " prévu le " & Cel.Offset(0, 4)
      Next Cel
    End If
    .Range("A3:E" & Nblg).AutoFilter
  End With
  If Len(Msg) > 0 Then
    MsgBox "Agent(s) en congé" & vbCr & Msg, vbCritical
  End If
End Sub

Le plus simple n'est pas une macro qu'il faut lancer, mais uns mise en forme conditionnelle.

un essai

Merci Steelson,

En fait la mise en forme conditionnelle, je sais faire. Mais comme j'ai beaucoup de ligne j'aurais souhaiter le faire dans une msgbox à l'ouverture de mon dossier.

Merci de vos lumières.

un exemple