Dim Ctrl As Control
Dim I As Integer
For Each Ctrl In UserForm1.Controls
If TypeName(Ctrl) = "CheckBox" Then
If Ctrl.Value = True Then
I = I + 1 ' boucle sur les checkbox pour connaitre leur nombre
Elseif I = 2 then
Ctrl.Value = false
End if
End If
End If
Next Ctrl