Insérer du texte dans une cellule depuis un userform

Bonjour, je souhaite créer un petit outil qui indiquerait dans une cellule le texte que je rentre dans un userform. Etant débutant en VB, le code que j'ai écrit retourne une erreur ( erreur 13). Quelqu'un sait où ca plante ???
Merci d'avance
Gametexx


Public montest As String



Sub test()


UserForm1.Show


End Sub

Sub test2()

Dim montest As String


montest = UserForm1.TextBox1.Value
Sheets(Feuil2).Cells(A1).Value = montest


End Sub