Mise en forme conditionnelle via une macro

Bonjour,
J'ai un fichier dans lequel j'insere une date et qui me calcul automatiquement tout un tas d'échéance.
Je cherche a créer un macro qui me fasse une mise en forme conditionnelle en fonction de la date d'aujourd'hui...
Ainsi quand on est à 30% de l'échéance la date s'affiche en orange et qu'en j'en suis a 10% elle s'affiche en rouge.
J'avais donc fait une mise en forme conditionnelle via l'assistant d'Excel, mais je souhaiterai également insérer à côté de chaque date une Check-Box qui dès qu'elle est tické (pour dire que l'action lié a l'échance est réalisé) la date se réinscrive en noir, mais ma mise en forme conditionnelle doit être prioritaire je pense car la macro de ma check-box ne marche pas...
J'ai donc tenté d'insérer cette macro:
Private Sub CheckBox22_Click()
If CheckBox22.Value = True Then
Sheets("Masque de saisie").Range("C18").Font.ColorIndex = xlAutomatic
Else
If (Sheets("Masque de saisie").Range("D2") - Sheets("Masque de saisie").Range("C17")) > (0.9 * (Sheets("Masque de saisie").Range("C18") - Sheets("Masque de saisie").Range("C17"))) Then
Sheets("Masque de saisie").Range("C18").Font.ColorIndex = 3
Else
If (Sheets("Masque de saisie").Range("D2") - Sheets("Masque de saisie").Range("C17")) > (0.7 * (Sheets("Masque de saisie").Range("C18") - Sheets("Masque de saisie").Range("C17"))) Then
Sheets("Masque de saisie").Range("C18").Font.ColorIndex = 46
Else
Sheets("Masque de saisie").Range("C18").Font.ColorIndex = xlAutomatic
End If
End If
End If
End Sub
Mais je doit ticker ma box pour la lancer...
Comment faire pour que la macro se lance automatiquement dès que j'ai rentré ma 1ere date et que la macro de ma checkbox passe prioritairement sur ma mise en forme conditionnelle...
En vous remerciant