Option Explicit
Dim i As Byte
Private Sub CheckBox1_Click()
For i = 3 To 4 ' Boucle sur les CheckBox de 3 à 4
With Me("CheckBox" & i)
.Visible = CheckBox1
.Value = False
End With
Next i
End Sub
Private Sub CheckBox2_Click()
For i = 5 To 6
With Me("CheckBox" & i)
.Visible = CheckBox2
.Value = False
End With
Next i
End Sub