Changer de couleurs des cellules

Bonjour à tous

besoin d'aide en VBA

J'ai une feuille "Feuille1", où la date d’aujourd’hui est notée en C1.

Une série de date sont affichées en B6, C6, D6.

j'aimerais que les cellules B6:Q6, change de couleur quand la date notée en D6 soit plus petite que celle affichée en C1, et que soit noté en Q6, la mention "OK".

Si D6 est plus grand que C1, alors rien ne change.

Je souhaiterais, faire cela pour la ligne B6 à B15

Effectivement, je pourrais faire avec la mise en forme conditionnelle, mais je préférerais en VBA.

J'ai déjà réalisé un début de code, mais ça ne fonctionne qu’approximativement.

quand je change la date dans la cellule D6, les lignes allant de B7:Q7 à B15:Q15 change de couleur en même temps.

je poste un exemple

https://www.cjoint.com/c/FJph67LM1cs

merci encore

titi32600