compléter un graphique

bonjour à tous,

je souhaiterai compléter mon code afin de réaliser un graphique complet. En effet, je souhaite que les codes de la première colonne soit le nom de mes séries.

voici mon code :


Sub GraphO()
'création d'un gaphique

Dim c As ChartObject
Set c = Feuil7.ChartObjects.Add(Range("B14").Left, Range("B14").Top, 550, 350)

With c.Chart
.ChartType = xlColumnStacked
.SetSourceData Source:=Feuil7.Range("B2:L8"), PlotBy:=xlRows

End With
End Sub

merci d'avance