checkbox dans userform

Private Sub CheckBox1_Change()
If UserForm1.Controls("CheckBox" & 1) = True Then
For i = 1 To 12
    If i = 1 Then GoTo suite
    UserForm1.Controls("CheckBox" & i) = False
suite:
Next i
End If
End Sub

Private Sub CheckBox2_Change()
If UserForm1.Controls("CheckBox" & 2) = True Then
For i = 1 To 12
    If i = 2 Then GoTo suite
    UserForm1.Controls("CheckBox" & i) = False
suite:
Next i
End If
End Sub
Private Sub CheckBox3_Change()
If UserForm1.Controls("CheckBox" & 3) = True Then
For i = 1 To 12
    If i = 3 Then GoTo suite
    UserForm1.Controls("CheckBox" & i) = False
suite:
Next i
End If
End Sub
Private Sub CheckBox4_Change()
If UserForm1.Controls("CheckBox" & 4) = True Then
For i = 1 To 12
    If i = 4 Then GoTo suite
    UserForm1.Controls("CheckBox" & i) = False
suite:
Next i
End If
End Sub
Private Sub CheckBox5_Change()
If UserForm1.Controls("CheckBox" & 5) = True Then
For i = 1 To 12
    If i = 1 Then GoTo suite
    UserForm1.Controls("CheckBox" & 5) = False
suite:
Next i
End If
End Sub

cela fonctionne, mais comme l'a signalé job 75 cela fait x macro semblables, et serait à priori optimisable en utilisant un module de classe. Malheureusement je ne n'en ai pour l'instant aucune notion (il faudra que j'y jette un coup d'oeil prochainement )

Private Sub cbx_Click()
Dim i As Byte, c As Control
If cbx Then
  For i = 1 To 12
    Set c = cbx.Parent.Controls("CheckBox" & i)
    If c.Name <> cbx.Name Then c = False
  Next
End If
End Sub