Problème workbook_open

Bonjour tout le monde,

je reviens vers vous pour un problème à l'ouverture du classeur.

J'ai en colonne G une date, résultat d'une formule d'ajout de date fait en VBA et renseignée par un USF.

Je voudrais qu'à l'ouverture du classeur les dates dépassées à la date d'aujourd'hui deviennent rouge et les autres vertes.

J'ai donc codé le workbook_open en :

Private Sub Workbook_Open ()

For Each C In Range ("G3:G250")

If c > Date Then C.Interior.ColorIndex =50

If c > Date Then C.Interior.ColorIndex =3

If c = "" Then C.Interior.ColorIndex =0

Next c

End Sub

Le problème est qu'il me met toutes les cases en vert :/

Une idée ? Une proposition serai la bienvenue.

Merci d'avance

( petite précision je ne peux utiliser les MFC )

Bonjour,

Private Sub Workbook_Open()
Dim C As Range
    For Each C In Range("G3:G250")
        If C.Value = "" Then
            C.Interior.ColorIndex = xlNone
        ElseIf C.Value < Date Then
            C.Interior.ColorIndex = 3
        Else
            C.Interior.ColorIndex = 50
        End If
    Next C
End Sub

A+

Merci ^^