Private Sub CheckBox1_Click()
If CheckBox1.Value = -1 Then ActiveSheet.Shapes("zoneproduit").Visible = True
If CheckBox1.Value = 0 Then ActiveSheet.Shapes("zoneproduit").Visible = False
End Sub
Private Sub CheckBox1_Click()
ActiveSheet.Shapes("zoneproduit").Visible = CheckBox1
End Sub