Ranger la valeur d'une textbox

Bonsoir ,

je souhaiterais ranger le résultat d'une textbox dans la première cellule vide de la colonne A .

merci de votre expertise

Bonsoir

Private Sub CommandButton1_Click()
Range("A65536").End(xlUp).Offset(1, 0) = TextBox1.Value
End Sub

Amicalement

Nad

Merci Nad