besoin d'aide SVP macro VBA

bonsoir tous les membres ,
description de probléme
j'ai crée un code VBA dont leur but est de faire clignoter les cellules DXXX de la feuille de suivi
je suis maintenant dans le cas que chaque changement de la date d'intervention "feuille d'enregistrement" les cellules clignotent or je vais que ce clignotement déclenche si et seulement si les cellules EXXXXXX "feuille de suivi" contient "attention date ,depassée"
(exemple si E5 contient attention date dépassée" alors D5 clignote en rouge si non pas de clignotement ) et de méme pour tous autres cellules. merci pour votre aide

Code:

---

1 2 3 4 5 6 7 8 9

Private Sub Worksheet_Change(ByVal Target As Range) If Me.Cells(3, Target.Column).Value = "date d'intervention" Then If (Target.Value <> "") And (Target.Offset(0, 1) <> "") Then Col = CByte(Replace(Target.Offset(-2, -2), "Element ", "")) Clignote Feuil1.Range("D" & Col + 4) End If End If End Sub

---

Il manque beaucoup d'éléments pour comprendre ton problème mais, à priori, il devrait suffire de remplacer :

Code:

---

If (Target.Value <> "") And (Target.Offset(0, 1) <> "") Then

---

Par

Code:

---

If (Target.Value = "") And (Target.Offset(0, 1) <> "attention date ,depassée") Then

---