Sub Macro1()
Charts.Add
ActiveChart.ChartType = xlXYScatter
ActiveChart.SetSourceData Source:=Sheets('Feuil1').Range('B1887:C2631'), _
PlotBy:=xlColumns
ActiveChart.Location Where:=xlLocationAsObject, Name:='Feuil1'
With ActiveChart
.HasTitle = False
.Axes(xlCategory, xlPrimary).HasTitle = False
.Axes(xlValue, xlPrimary).HasTitle = False
End With
ActiveSheet.Shapes('Graphique 11').ScaleWidth 2.27, msoFalse, _
msoScaleFromTopLeft
ActiveSheet.Shapes('Graphique 11').ScaleHeight 1.26, msoFalse, _
msoScaleFromTopLeft
End Sub