Test cellule vide colonne (A)

Bonjour a tous, forum bonjour,


Sous Windows 10 et Excel 2007

Sur ma Feuil1 je fais un test afin de détecter si une cellule de la colonne (A) est vide.
Je m'explique :

-Je fais un clic droit ce qui m'affiche la date d'aujourd'hui dans la colonne (A).
-Puis on renseigne la colonne (B).
-On renseigne la colonne (C) en euros.

Le but du test serait :
--- Si la colonne (A) a une date alors on écrit en "Rouge" dans la colonne (C)
--- Si la colonne (A) a une cellule vide alors on écrit en "Noir" dans la colonne (C)

Comme le montre la photo ci-jointe sur le lien ci-dessous.
https://www.cjoint.com/c/HJdgdDx7dXz

Je voudrais bien svp que ça fonctionne avec le code juste ci-dessous afin d'avoir un résultat instantané.

Private Sub Worksheet_Change(ByVal Target As Range)

A l'état actuel ça ne fonctionne pas avec les deux codes ci-dessous.

Pour infos : j'ai peut être un conflit de code ou une interférence avec mon programme.

Merci a vous pour votre aide, je vous souhaite a tous une très bonne journée.

Cdlt Raymond

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, [A3:A200]) Is Nothing And Target.Count = 1 Then
        If Target.Value = "" Then
           Target.Offset(0, 2).Font.ColorIndex = 1           'Saute en colonne (C) mets FONT en Noir
       Else
           Target.Offset(0, 2).Font.ColorIndex = 3           'Saute en colonne (C) mets FONT en Rouge
        End If
    End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Not Intersect(Target, [A3:A200]) Is Nothing And Target.Count = 1 Then
        If Target.Value = "" Then
           Target.Offset(0, 2).Font.ColorIndex = 1           'Saute en colonne (C) mets FONT en Noir
       Else
           Target.Offset(0, 2).Font.ColorIndex = 3           'Saute en colonne (C) mets FONT en Rouge
        End If
    End If
End Sub