Ok ok !
Voilà une proposition alors:
Créer ton diagramme circulaire, le placer à l'endroit souhaité avec la représentation souhaitée. Y ajouter une ligne de données
(sélectionner données -> ajouter -> valeurs de la série :
={0;0}
Et maintenant dans ton code VBA
ActiveSheet.ChartObjects("Graphique 1").Activate
ActiveChart.SeriesCollection(1).Values = "={35;65}"'Par exemple pour afficher 35 et 65% sur le graphe
En supposant que ton graphique s'appelle "Graphique 1"