Copier x fois un userform + incrémentation

Bonjour tout le monde,

Je vous expose mon problème :

J'ai un usf dans lequel je rentre des données puis enregistrement à la suite dans la feuil1 jusqu'ici tout va bien .

Là où cela se corse pour moi, c'est que je souhaiterai si cela est possible copier X fois les données de l'usf dans la feuil1 en incrémentant de 1 à chaque vois l'ip variable en reprenant aussi le texte du textbox1 ( la valeur de x serait donné par la valeur du textbox4 : nombre de traitement)

Déroulement : Remplissage de l'usf, Nom, Ip,fixe, ip variable et nombre de traitement .

Si dans nombre de traitement il y a 6, copier 6 fois les données de l'usf avec en ip variable le texte du textbox nom + le numéro 01, puis 02 jusqu'à 6 comme dans le fichier joint mais je souhaiterai que cela se fasse en une seule manip c'est à dire le click sur le bouton valider .

Merci d'avance de prendre du temps pour moi.

Cordialement

bonjour,

A tester :

Private Sub CommandButton1_Click()
Derligne = Range("a100000").End(xlUp).Row + 1
cpt = CInt(TextBox4)
iVAl = Val(TextBox3)
num = Format(iVAl, "00")
For i = 1 To cpt
   Cells(Derligne, 1).Value = TextBox1
   Cells(Derligne, 2).Value = TextBox2
   Cells(Derligne, 3).Value = TextBox1 & Format(iVAl, "00")
   Derligne = Derligne + 1
   iVAl = iVAl + 1
Next
MsgBox " Traitement fini"
End Sub

A+

Super !!

Merci beaucoup !!

Cordialement.