Incrimenter une ligne avec un bouton dans userform

Bonjour à tous,

Je voudrais, dans un userform, avoir une textbox et un bouton (voir fichier joint), lorsque on écrit dans ma textbox et qu'on valide cela s'ecrive dans la céllule a1.
si on ecrit de nouveau dans ma textbox et qu'on revalide je veu que cela s'ecrive dans la céllule a2.

Donc on incrémente le numero de la ligne.

J'ai écrit ça :

Private Sub CommandButton1_Click()
Dim i As Integer
i = i + 1
Range("a" & i).Value = Controls("textbox1")
End Sub


mais ça ne marche pas cela s'ecrit toujours dans la case a1

si qqun peut m'aider ça serait sympa

merci d'avance