Private Sub CommandButton1_Click()
Dim Obj As Control
Dim i As Integer
For i = 1 To 5 'boucle pour la création des TextBox
Set Obj = Me.Controls.Add("forms.Textbox.1")
With Obj
.Name = "monTextbox" & i
.Left = 140
.Top = 30 * i + 10
.Width = 50
.Height = 20
End With
Next i
End Sub