c'est ca le problème, tu t'inspire trop de tes tests sur macro...
exemple : plutôt que sélectionner, copier, reselectionner et en fin coller, tu peux affecter la valeur d'une cellule à une variable et afficher cette variable dans ta textbox.
du genre :
variable=activesheet.range('A3').value
numeroprojet=activesheet.range('n° de la cellule ou tu as ton n° de projet par exemple').value
ActiveChart.Shapes('Text Box 4').text='Projet sélectioné :' & & variable & 'projet' & numeroprojet
tu vois le principe?essaye de t'en inspiré
tiens moi au courant...
ps : je suis pas super sure de ActiveChart.Shapes('Text Box 4').text, regarde dans les propriété de ta textbox pour la remplir (.text ou .caption???)