Ligne précédente écrasée après chaque entrée via un userform

Bonsoir,
j'ai créé un userform avec 10 textboxes. Chaque valeur de textbox correspond à une cellule d'une ligne de ma feuille excel.
je recherche la dernière ligne vide sur la feuille excel concernée. Ensuite
le transfert s'effectue parfaitement lorsque j'appuie sur ma touche enregistrement mais si je rentre une deuxième ligne cette dernière écrase la précédente.
je voudrais pouvoir rentrer plusieurs lignes

num = Sheets("Feuil1").Range("A65536").End(xlUp).Row + 1 'on part du bas de la colonne, on cherche
Sheets("Feuil1").Activate

Range("B" & num).Value = TextBox1.Value
Range("C" & num).Value = TextBox2.Value
Range("D" & num).Value = TextBox3.Value
Range("E" & num).Value = TextBox4.Value
Range("I" & num).Value = TextBox5.Value
Range("F" & num).Value = TextBox6.Value
Range("G" & num).Value = TextBox7.Value
Range("J" & num).Value = TextBox8.Value
Range("K" & num).Value = TextBox9.Value
Range("H" & num).Value = TextBox11.Value
Unload UserForm1
End Sub

Pouvez vous m'aider s'il vous plait
merci