selection données série et axe vba graphique

[lanzarotte]

Bonjour à tous,
j'automatise sous vba une insertion de diagramme secteur
le problème est qu'il inverse les données série et les données des axes.
(j'obtiens ce que je souhaite en faisant changer de ligne ou de colonne dans la boite de dialogue graphique)
J'aimerais définir exactement la plage étiquette de l'axe horizontale abscisse.
Et définir la série(1)


Mon code :

Dim MaPlageDonnees As String

MaPlageDonnees = CelluleInsertion.Address & ":" & CelluleInsertion.Offset(2, 3).Address

Range(MaPlageDonnees).Select
ActiveSheet.Shapes.AddChart.Select
ActiveChart.SetSourceData Source:=Range(MaPlageDonnees)


ActiveChart.SeriesCollection(1).Select
ActiveChart.ChartType = xlPie
ActiveChart.ApplyLayout (6)

''''''''''''A aucun moment je ne définie la valeur de l'axe des abscisses''''''
Je vous remercie pour votre aide !