Private Sub CheckBox1_Click()
If CheckBox1 Then
CheckBox1 = True 'oui
CheckBox9 = False 'non
CheckBox17 = False 'non
End If
End Sub
Private Sub CheckBox17_Click()
If CheckBox17 Then
CheckBox1 = False
CheckBox9 = True
CheckBox17 = False
End If
End Sub
Private Sub CheckBox9_Click()
If CheckBox9 Then
CheckBox1 = False
CheckBox9 = False
CheckBox17 = True
End If
End Sub