Public WithEvents GroupeTgb As MSForms.ToggleButton
Private Sub GroupeTgb_Click()
'ici ton code...
End Sub
Private Sub GroupeTgb_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Dim Tgb As MSForms.ToggleButton
For Each Tgb In UserForm1.Controls
Tgb.Value = False
Next Tgb
End Sub