'On décharge tous les contrôles (pas obligé) For i = 1 To x.Count - 1 x(i) = Nothing: Unload x(i) Next i 'Puis on créé les contrôle au nombre de Text1{.text} If IsNumeric(Text1) = False Or Text1 <= 0 Then Exit Sub For a = x.Count To x.Count + Text1 - 1 Load x(a) x(a).Visible = True x(a).Left = x(a - 1).Left + 240 Next a