Mise en forme des données sur l'axe vertical d'un graphique à double entrée

Bonjour à tous,

J'aimerais mettre en gras les situations professionnelle de l'axe verticale de mon graphique et aussi que l'orientation du texte soit à l'horizontal mais je n'ai rien trouvé trouvé de concluant sur le sujet.

J'ai essayé le code suivant pour la mise en forme en gras mais il ne reconnaît pas le titre de mon graphique :

Sub MettreEnGrasAxesHorizontalGraphique()
Dim ws As Worksheet
Dim chartObj As ChartObject
Dim series As series
Dim i As Integer

' Spécifiez le nom du graphique (à remplacer par le nom de votre graphique)
Set chartObj = ws.ChartObjects("TEST")

' Parcours de chaque série dans le graphique
For Each series In chartObj.Chart.SeriesCollection
' Vérifier si la série correspond à l'axe horizontal
If series.AxisGroup = xlCategory Then
' Étiquettes à mettre en gras
Dim labelsToBold As Variant
labelsToBold = Array("En emploi", "En formation", "En thèse", "En volontariat", "En recherche d'emploi", "Autre situation")

' Parcourir les points de données de la série
For i = LBound(labelsToBold) To UBound(labelsToBold)
For j = 1 To series.Points.Count
If series.Points(j).DataLabel.Text = labelsToBold(i) Then
series.Points(j).DataLabel.Font.Bold = True
Exit For
End If
Next j
Next i
End If
Next series
End Sub

Serez-t-il possible de m'apporter votre aide via le fichier en pièce jointe svp ?

Et si possible, j'aimerais le faire sans passer par le titre du graphique car je préfère ne pas mettre de titre.

Merci à tous pour votre attention.

Bien cordialement.

Nacim