Sub Graphique()
ActiveSheet.ChartObjects.Delete
Dim DerLgn As Integer
DerLgn = Range('R2')
Charts.Add
ActiveChart.ChartType = xlColumnClustered
ActiveChart.SetSourceData Source:=Sheets('Feuil1').Range('L2:M' & DerLgn), PlotBy _
:=xlColumns
ActiveChart.Location Where:=xlLocationAsObject, Name:='Feuil1'
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = 'Classement par Rayon'
.Axes(xlCategory, xlPrimary).HasTitle = False
.Axes(xlValue, xlPrimary).HasTitle = False
End With
ActiveWindow.Visible = False
ActiveSheet.Shapes(Selection.Name).ScaleWidth 1.21, msoFalse, msoScaleFromTopLeft
ActiveSheet.Shapes(Selection.Name).ScaleHeight 1.29, msoFalse, msoScaleFromTopLeft
End Sub