valeur d'un textbox

Salut, je souhaite pouvoir recopier la valeur contenue dans un textbox.
Le problème c'est que la cellule où je veux recopier la valeur est sur une autre feuille.

J'ai essayé ceci:

sheets("Feuil1").select
ActiveSheet.Shapes("TextBox1").Select
selection.value.copy

sheets("Feuil2").select
Range("A1").select
activesheet.paste


Mais ça ne fonctionne pas.Avez-vous une solution à me proposer?