Changer la couleur de fond d'un cellule en cochant une case

Bonjour,

j'aimerais pouvoir changer la couleur de fond de plusieurs cellules en cochant une case, par exemple, pour donner la correction sur un questionnaire.

Merci par avance pour votre aide.

Cordialement.

Private Sub Caseàcocher1_Cliquer()

Sheets("QCM").Range("B6").Interior.Color = RGB(255, 255, 0)

Sheets("QCM").Range("B12").Interior.Color = RGB(255, 255, 0)

End Sub

merci pour la réponse rapide le seul problème est quand je click sur la case à cocher la couleur change, mais quand je décoche la case la couleur reste peut t'on changer cela.

Cordialement

Private Sub Caseàcocher1_Cliquer()
    If Sheets("RESULTAT").Range("D5") = True Then
        Sheets("QCM").Range("B6").Interior.Color = RGB(255, 255, 0)
        Sheets("QCM").Range("B12").Interior.Color = RGB(255, 255, 0)
        MsgBox ("Réponses affichées")
    Else
        Sheets("QCM").Range("B6").Interior.Color = RGB(255, 255, 255)
        Sheets("QCM").Range("B12").Interior.Color = RGB(255, 255, 255)
        MsgBox ("Réponses cachées")
    End If
End Sub

ça ne fonctionner pas au début je n'avais pas liée la cellule D5 à la case à cocher.

Un grand merci.

Bonne fin de journée