Bonjour,
à adapter suivant tes besoins
Textbox1 = le nom de ta textbox
Mettre Range("La lettre de ta colonne que tu souhaite" en exemple ici c'est A
Private Sub TextBox1_AfterUpdate()
derligne = Range("A" & Rows.Count).End(xlUp).Row + 1
Range("A" & derligne) = TextBox1.Value
End Sub
Cordialement.