Voila un exemple pour transferer les valeur de textbox
ajouter un bouton commande et mettez ce code

voila.

Frmsheet.Spreadsheet1.Range("feuille1!c1") = Text1.Text