Charts.Add
ActiveChart.ChartType = xlColumnClustered
ActiveChart.SetSourceData Source:=[B]Sheets("graph")[/B].Range("A1:B52"), PlotBy _
:=xlColumns
ActiveChart.SeriesCollection(2).Delete
ActiveChart.SeriesCollection(1).XValues = "=[B]graph![/B]R1C1:R52C1"
ActiveChart.SeriesCollection(1).Values = "=[B]graph![/B]R1C2:R52C2"
ActiveChart.Location Where:=xlLocationAsObject, Name:=[B]"graph"[/B]
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = "Transactions" & " " & transactions & "+" & " " & "(" & année & ")"
.Axes(xlCategory, xlPrimary).HasTitle = True
.Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "Week"
.Axes(xlValue, xlPrimary).HasTitle = True
.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "Total"
End With
ActiveChart.HasLegend = False
ActiveChart.PlotArea.Select
ActiveChart.Axes(xlValue).MajorGridlines.Select
With ActiveChart.Axes(xlValue)
.MinimumScaleIsAuto = True
.MaximumScaleIsAuto = True
.MinorUnitIsAuto = True
.MajorUnit = 1
.Crosses = xlAutomatic
.ReversePlotOrder = False
.ScaleType = xlLinear
.DisplayUnit = xlNone
End With