Cases à cocher

[CMoa]

Bonjour à tous
J'ai une centaine de cases à cocher et je voudrais si cela est faisable les colorier lorsqu'elles sont cochées.
J'ai recherché sur le Forum et je n'ai rien trouvé alors je m'adresse à vous.
Merci d'avance pour votre aide.
@+

 

[CMoa]

Re : Cases à cocher

Re
Solution trouvée sur ce Forum: posté par Hervé que je remercie.
Pour ceux que ça intéresse:

Sub Coloriage2()
Dim leNom As String

leNom = Application.Caller

'10 rouge
'1 blanc

With ActiveSheet.Shapes(leNom).Fill.ForeColor
    .SchemeColor = IIf(.SchemeColor = 10, 1, 10)
End With
End Sub

Sans oublier de parémétrer la case à cocher sur couleur automatique.
Bonne soirée