Changer de couleurs des cellules en VBA

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.
je souhaiterais, 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 n'est changé.
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.

merci encore

titi32600