Problème de macro

Bonjour,

Je suis actuellement en train de créer une macro qui me permet, à partir d'une base de données, de réaliser une série d'action (faire une série de calculs, générer des TCD, des graphes...) en ne cliquant que sur 1 bouton.

J'ai créé l'écriture ci-dessous qui met en gras mes étiquettes de données sous condition. Mon problème, c'est que cette écriture ne fonctionne pas si je l'intègre dans ma macro complète. En revanche, si je fais un sub spécifique pour cette action (comme ci-dessous), cela fonctionne parfaitement.

Quelqu'un peut-il me dire s'il y a une solution pour intégrer cette écriture dans ma macro complète et que cela fonctionne (pour éviter de devoir utiliser plusieurs boutons).

Merci par avance, voici l'écriture :

Sub etiq_gras()

Const premcar = "{"


Dim nbpts As Long, nupt As Long


Sheets("Cibles par campagne").Select
ActiveSheet.ChartObjects("Répartition des cibles par campagne").Activate

nbpts = ActiveChart.SeriesCollection(1).Points.Count

For nupt = 1 To nbpts
If Left(ActiveChart.SeriesCollection(1).Points(nupt).DataLabel.Characters.Text, 1) = premcar Then
ActiveChart.SeriesCollection(1).Points(nupt).DataLabel.Format.TextFrame2.TextRange.Font.Bold = msoTrue
Else
ActiveChart.SeriesCollection(1).Points(nupt).DataLabel.Format.TextFrame2.TextRange.Font.Bold = msoFalse
End If
Next nupt

end sub