NomFeuille = ActiveSheet.Name
Charts.Add
ActiveChart.ChartType = xlColumnClustered
ActiveChart.SetSourceData Source:=Sheets(NomFeuille).Range("M19:N33"), _
PlotBy:=xlColumns
ActiveChart.SeriesCollection(1).Delete
ActiveChart.SeriesCollection(1).XValues = "='NomFeuille'!R20C13:R33C13"
ActiveChart.Location Where:=xlLocationAsNewSheet, Name:="Avancement DCT et DEV"
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = "DEV -%"
.Axes(xlCategory, xlPrimary).HasTitle = False
.Axes(xlValue, xlPrimary).HasTitle = False
End With