Private Sub BTN_Effacer_Click()
Dim Ctrl As Control
For Each Ctrl In Me.Controls
If TypeOf Ctrl Is MSForms.CheckBox Then Ctrl[B][COLOR="Red"].Object[/COLOR][/B].Value = False
If TypeOf Ctrl Is MSForms.TextBox Then Ctrl.Object.Value = ""
Next Ctrl
End Sub
Dim Ctrl As control
For Each Ctrl In Me.Controls
If TypeOf Ctrl Is MSForms.OptionButton Then
Ctrl.Value = False
End If
Next Ctrl