Private Sub CheckBox1_Click()
Dim tablo As Variant
Dim i As Byte
tablo = Array(2)
If CheckBox1.Value = True Then
For i = LBound(tablo) To UBound(tablo)
Me.Controls("CheckBox" & tablo(i)).Value = True
Next i
End If
If CheckBox1.Value = False Then
For i = LBound(tablo) To UBound(tablo)
Me.Controls("CheckBox" & tablo(i)).Value = False
Next i
End If
End Sub