Private Sub CheckBox1_Click()
' https://www.ozgrid.com/VBA/control-loop.htm
Dim cCont As Control
Select Case CheckBox1.Value
' Mes 20 textbox doivent afficher la valeur "0" si checkbox1=true
Case True: CheckBox1.Caption = "Vrai"
For Each cCont In Me.Controls
If TypeName(cCont) = "TextBox" Then
'MsgBox cCont.Name
cCont.Object = 0
End If
Next cCont
Case False: CheckBox1.Caption = "Faux"
Case Else: CheckBox1.Caption = "Null"
End Select
End Sub