problème sur une boucle for

salut a tous

voici ma boucle

Option Explicit
Dim i As Integer

If Metabase.OptionButton1 = True Then
Workbooks.Open FileName:="F:\Metachut2003\Base\Metallis\Ec120met.xls"
For i = 2 To ActiveWorkbook.Sheets("MAQUETM").Range("V65536").End(xlUp).Row Step 23
ActiveWorkbook.Sheets("MAQUETM").Range("V" & i + 1).Value = Saisieinfosmeta.TextBox1
ActiveWorkbook.Sheets("MAQUETM").Range("R" & i).Value = Saisieinfosmeta.TextBox2
ActiveWorkbook.Sheets("MAQUETM").Range("X" & i).Value = Saisieinfosmeta.TextBox3
ActiveWorkbook.Sheets("MAQUETM").Range("U" & i).Value = Saisieinfosmeta.TextBox4
Next i
' imprime classeur actif
ActiveWindow.SelectedSheets.PrintOut Copies:=1
' ferme sans sauvegarder
ActiveWorkbook.Close savechanges:=False
End If


ce code ouvre un classeur si un bouton option est selectionné
mon problème est le suivant j'aimerai inserer des données que l'on rentre dans des textbox
pour textbox1 en V3
textbox2 en R2
textbox3 en X2
textbox4 en U2

et ces données doivent s'inserer dans la meme colonne mais toutes les 23 lignes suivantes jusqu'a la fin du doc
donc j'ai cette boucle mais elle ne fonctionne pas
merci de m'aider

bichon