Ajouter du texte à une Shape

Bonjour à tous

Suite du précédent topic résolu (plus ou moins), je voudrais améliorer encore un peu mon système.
Je retrace rapidement :
J'ai une liste de personnes dont j'ai la provenance géographique. J'ai créé une carte de France qui se colorie en fonction du pourcentage de provenance.
Jusqu'ici, ça marche pas trop mal, mais pour faciliter la lecture, j'aimerais pour chaque region ajouter du texte dessus en mettant le nom de la région (Shape.Name), et en dessous le pourcentage de personne qui en vient.

Je débute dans le VBA, et je n'arrive pas à trouver les bonnes propriétés pour y mettre mon texte (Shape.Name + "(" + pourcentage + ")").
j'ai été dans shape.TextFrame2.TextRange.Text = ... mais rien ne s'affiche. Y a t il une propriété à régler en plus (comme l'affichage du texte à mettre à true) ? est-ce la bonne propriété déjà ?

Merci pour votre aide.

bon, je continue à sécher... avec le code précédent utilisant les textframe2, lors du passage à excel 2003, le texte apprait bien, mais cela bug lorsque je tente de relancer la macro.

j'ai essayé en mettant ce code :

Code:

---

loShape.TextFrame.Characters.Text = loShape.Name

---

malheureusement, il me retourne encore une fois une erreur :

Citation:

---

Erreur 1004
impossible de définir la propriété Text de la classe Characters

---

Je ne sais pas comment résoudre ce soucis (même avec un test loShape.TextFrame.Characters.Text = "toto" ça ne marche pas, ce qui éloigne à priori le souci de type de données à convertir en string.

là, je bloque... :calim2: