Bonjour
Il peut y avoir plusieurs réponses
Faire une boucle
Sub Test1()
Dim I As Integer
For I = 1 To 5
If Me.Controls("TextBox" & I) = "" Then Me.Controls("TextBox" & I) = 0
Next I
End Sub
Passer en revue tous les contrôles et modifier (si besoin) les TextBox
SubTest2()
Dim CTRL As Control 'Variable pour la collection des contrôles
For Each CTRL In Me.Controls
If TypeOf CTRL Is MSForms.TextBox Then
CTRL = 0
End If
Next CTRL
End Sub