Salut Temjeh, salut le forum,
Voici un code (niveau UserForm) qui devrait résoudre ton problème :
Private Sub UserForm_Initialize() 'à l'initialisation de l'UserForm
'à adapter à ton cas, dans cet exemple :
'Label=Label1
'Onglet=Feuil1
'Zone de Texte=Text Box 1
Label1.Caption = Sheets(1).Shapes("Text Box 1").TextFrame.Characters.text
End Sub
À plus,
Robert