Passer a la ligne suivante

Bonjour,

J'ai un soucis avec un userform ou il y a plusieurs textbox. Chaque textbox renvoie sa valeur dans une colonne de mon classeur. Le probleme est que quand j'utilise pour la premiere fois le userform, les valeurs se placent bien dans la premiere de chaque colonne correspondante. Par contre, si je veux faire une nouvelle ligne de donnees avec le userform, les valeurs se placent encore et toujours dans la premiere ligne.
J'ai deja essaye pas mal de methodes trouvees sur le net :

If ActiveCell <> "" Then ActiveCell.Offset(1, 0).Select

thelast = Range("C1048576").End(xlUp).Offset(1, 0).Select

For i = 6 to n
next i

Rien ne fonctionne, je ne vois pas comment faire...
Pouvez vous m'aider ?

Voici mon code :

'Order
Range("A6").Select
order = "REC" & txt_data_order_1 & "-" & txt_data_order_2
ActiveCell.Value = order

'Size of the heat exchanger
Range("B6").Select
Size = txt_data_size_l.Value & " x " & txt_data_size_l2 & " x " & txt_data_size_h
ActiveCell.Value = Size

'Number of shift
Range("C6").Select
ActiveCell.Value = cb_data_shift.Value

'Number of hours working per person a day
Range("D6").Select
ho = (txt_data_hours_h.Value * 60) + txt_data_hours_m.Value
ActiveCell.Value = ho

'Quantity of bars to prepare
Range("E6").Select
ActiveCell.Value = txt_data_qtbars.Value

'Quantity of sheets to saw
Range("F6").Select
ActiveCell.Value = txt_data_sheets.Value

'Number of layers
Range("G6").Select
ActiveCell.Value = txt_data_layers.Value


Merci

Pouillette