Bonjour Stepaustras, bonjour le forum,
Il te faut utiliser, dans l'onglet concerné, la macro événementielle Change du style :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$A$1" Then Exit Sub
Select Case Target.Value
Case "1"
Me.ToggleButton1.Value = True
Me.ToggleButton1.BackColor = &HC0C0FF
Case ""
Me.ToggleButton1.Value = False
Me.ToggleButton1.BackColor = &H8000000F
End Select
End Sub
Un fichier exemple :