Dim ctl(10) As Boolean 'déclaration variable du tableau(true ou false)
Private Sub CheckBox1_Click()
ctl(1) = IIf(ctl(1), False, True)'
End Sub
Private Sub CheckBox2_Click()
ctl(2) = IIf(ctl(2), False, True)
End Sub
Private Sub CommandButton1_Click()
UserForm1.Hide
End Sub
Private Sub UserForm_Activate()
Me.CheckBox1.Value = IIf(ctl(1), 1, 0)
Me.CheckBox2.Value = IIf(ctl(2), 1, 0)
End Sub