Copier x fois les lignes d'un userform avec ref unique

Bonjour,

J'ai trouvé ce code qui me permet de copier dans excel autant de fois que la valeur saisie dans la textbox11 les infos de mon usercode.

Derligne = Range("a100000").End(xlUp).Row + 1
cpt = CInt(TextBox11)


For i = 1 To cpt
Cells(Derligne, 1).Value = TextBox1
Cells(Derligne, 2).Value = TextBox2
Cells(Derligne, 3).Value = TextBox3
Derligne = Derligne + 1

Next

Le problème que je rencontre c'est que dans ma colonne A qui correspond à ma textbox1 il s'agit d'une référence unique, malheureusement avec ce code je n'arrive pas à faire evoluer cette valeur, si je mets
Cells(Derligne, 1).Value = val(TextBox1)+1
cela ne le prends en compte que pour la premiere copie.

Auriez vous une solution?
Je vous remercie de votre aide