dim i, imax as integer

imax= textbox1

for i = 1 to imax
'la boucle
next i

moi je ferai ça mais j'ai pas essayé ;)