Sub GraphS()
Set c = Feuil7.ChartObjects.Add(Range("B14").Left, Range("B14").Top, 550, 350)
With c.Chart
.SetSourceData Source:=Feuil7.Range("B2:G8"), PlotBy:=xlRows
.ChartType = xlColumnStacked
For i = 1 To .SeriesCollection.Count
.SeriesCollection(i).Name = Feuil7.Range("A" & i + 1)
Next
End With
End Sub