Voila, je pense que ca pourrai t'aider s'il n'est pas trop tard. J'ai eu un peu de mal mais j'ai fouillé un peu partout sur le net des solutions. Mon objectif etait le meme que toi.


Private Sub Valider_Click()

Dim Top, Left, Width, Height, i As Integer
Dim NumeroTextBox As Integer
Dim TextBoxName As String

Top = 150
Left = 150
Width = 2000
Height = 275
NumeroTextBox = 1

For i = 0 To 4 - 1

TextBoxName = "NomdelaTextBox" & NumeroTextBox
Set TextBox = Controls.Add("VB.textbox", "" & TextBoxName & "", Ouverture) 'Ouverture est le nom de ma fenetre

With TextBox
.Visible = True
.Top = Top 'Definit la distance entre le bord de la fenetre et le bord du conteneur
.Left = Left 'Definit la distance entre le bord gauche de la fenetre et le bord du conteneur
.Width = Width 'Definit la largeur de l'objet
.Height = Height 'Definit la hauteur de l'objet
.Font.Size = 8
End With

Top = Top + 500
NumeroTextBox = NumeroTextBox + 1

Next

End Sub