Bonjour,
Ce code dans un module standard. Tu affectes cette procédure à ta case à cocher (clic droit, affecter une macro...), la cellule A1 sera colorée en rouge si cochée :
Sub Colorer()
Range("A1").Interior.ColorIndex = IIf(ActiveSheet.Shapes(Application.Caller).ControlFormat.Value = 1, 3, -4142)
End Sub