modifier le texte d'une textbox

Bonsoir à tous,

je cherche à mettre en texte d'une textbox sur ma feuille une variable correspondant au contenu d'une cellule d'une autre feuille.
Pour celà j'ai écrit ce code:

sub remplirbox()
Sheets("Feuil1").Select
nom = Trim(Range("D3").Value)
prenom = Trim(Range("K3").Value)
With Sheets("Feuil2")
.Shapes("Text Box 14").Select
Selection.Characters.Text = nom
.Shapes("Text Box 15").Select
Selection.Characters.Text = prenom
End With
End Sub

et celà ne fonctionne pas, pourtant ce code a été obtenu depuis l'enregistreur de macros, puis modifié...

Qelqu'un a-t-il une idée de ce qui cloche ?

Merci d'avance pour votre aide.

Philippe

PS: bien entendu les Textbox 14 et 15 correspondent effectivement à leur nom sur la feuille sur laquelle je travaille