Boucler la copie de textbox vers des cellules

Bonjour,

Je galère (comme pas mal de personnes visiblement!) sur un code VBA. Je souhaite enregistrer sur une ligne le contenu de 20 texbox. Toutes les valeurs des Textbox sont numeriques si cela a une importance.
En fait c'est une macro qui doit editer un ligne d'un de mes tableaux. J'ai deja recupérer le numéro de la ligne à modifier, qui est contenu dans la variable (public) NumLigne. L'objectif est bien entendu que chaque textbox renvoie toujours sur la meme colonne.
Voici le code que j'ai tenté, mais je me fais toujours renvoyé par VBA lorsque j'execute.
Pour info, ma userform est Userform1.
Si quelqu'un peut me sortir de ce pétrin je l'en remercierai beaucoup.
Merci d'avance!

Sub EnregistrerModif()

'Declaration des Variables
'*************************

Dim j As Integer
Dim NameBox As Object
j = 1
For j = 1 To 20
Sheets("Feuil2").Select
Range("A1").Offset(NumLigne - 1, j).Value = UserForm1.Controls("TextBox" & i).Value
Next j
End Sub