Charts.Add
ActiveChart.ChartType = xlColumnStacked
ActiveChart.SetSourceData Source:=Workbooks("Affiche_graphe").Sheets("Feuil1").[B]Range(Cells(29, 2), Cells(32, temp))[/B], PlotBy _
:=xlRows
ActiveChart.Location Where:=xlLocationAsObject, Name:="Graphes"
With ActiveChart
.HasAxis(xlCategory, xlPrimary) = True
.HasAxis(xlValue, xlPrimary) = True
End With ActiveChart.Axes(xlCategory, xlPrimary).CategoryType = xlAutomatic