Bonjour,
Ce type de dispositif présente toujours deux problèmes : le mettre en route et l'arrêter !
J'ai apporté pas mal de petites modifs à ton fichier, outre mettre le passage d'arguments de tes procédures par position (le passage par nom ne me sied point... )
-révision de tes MFC : tu as 2 couleurs, à toi de veiller à ce qu'il n'y en ait pas plus de deux pour cela !
les formules on également été revues...
-la procédure n'avait pas de déclencheur, compte tenu de sa nature, j'en ai ajouté un sur l'évènement Calculate, qui la déclenchera s'il trouve des cellules colorées en rouge ou orange dans la colonne Q. J'ai aussi asservi cette recherche à la valeur d'une variable booléenne publique (inutile de rechercher si déjà en cours). A l'ouverture du classeur, le déclenchement, normalement, intervient donc.
Cette variable conditionne également BeforeClose (erreur si l'éclairage n'était pas en cours).
-Comme on a du mal à travailler avec un machin qui clignote, j'ai ajouté un bouton d'arrêt. Mais cela se redéclenchera à chaque recalcul s'il y a lieu...
Cordialement.