problème de boucle Do While

Salut a tous et a toutes les exceliens et exceliennes du forum
j'ai essayé de changer ma boucle for en While do ca marche mais j'ai un peu
bidouillé le code pour que les données de textbox se mettent toutes les 23 lignes
de la feuille du classeur
mais je n'arrive toujours a ecrire le code pour que les donnée s'ecrivent JUSQU A LA FIN
DE LA FEUILLE DU CLASSEUR

voici mon code

'Bouton Imprimer

Private Sub CommandButton1_Click()

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


voila un exemple j'ai pas l'impression que mon end xldown fontionne
si je met Do While i < Range("V65534").End(xlDown).Row
ben ca copie les données des textbox jusqua la 65534 ligne alors que je veux juste
jusqu'a la fin du doc

merci a ceux qui me repondront