'Création du graphique
Range[COLOR="Red"]("A" & L + 2, "F" & L + 2)[/COLOR].Select
Charts.Add
ActiveChart.ChartType = xlArea
ActiveChart.SetSourceData Source:=Sheets("Echrev").Range[COLOR="red"]("A" & L + 2, "F" & L + 2)[/COLOR], PlotBy _
:=xlRows
ActiveChart.SeriesCollection(1).XValues = "=Echrev!R1C2:R1C6"
ActiveChart.SeriesCollection(1).Name = "Total des échéances"
ActiveChart.Location Where:=xlLocationAsNewSheet
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = "TitreDeMonDocument"
.Axes(xlCategory, xlPrimary).HasTitle = False
.Axes(xlValue, xlPrimary).HasTitle = False
End With