bonjour,
le controle que tu as utilisé n'est pas le meilleur pour ce que tu veux faire. Je te conseille d'utiliser le controle CheckBox que tu retrouve dans la barre d'outils "Boite à outils controle". Sinon voici une solution:
J'ai affecté cette macro à la case Horaire1
Sub Horaire1_Clic()
With Sheets("Feuil1")
.Shapes("test").ControlFormat.Value = False
End With
End Sub
pour mettre la case test à faux. J'ai ensuite affecté la macro suivante à la case test:
Sub MasquerCaseHoraire1_Clic()
With Sheets("Feuil1")
If .Shapes("Horaire1").ControlFormat.Value = 1 Then
.Shapes("test").ControlFormat.Value = False
End If
End With
End Sub
quand on clique sur test, si horaire1 est coché, la valeur redevient faux sinon la case agit normalement. Le controle que tu as utilisé ne semble pas comprendre la propriété enabled.