Bonsoir,
tiens c'est un peu bourrin mais bon, cela devrai répondre à tes besoin:
Sub Macro1()
Range("A2").Select
Selection.End(xlDown).Select
last_val = ActiveCell.Value
Range("A2").Select
Range(Selection, Selection.End(xlDown)).Select
Charts.Add
ActiveChart.ChartType = xlColumnClustered
ActiveChart.SetSourceData Source:=Sheets("calcul").Range("A2:A6"), PlotBy:= _
xlColumns
ActiveChart.Location Where:=xlLocationAsObject, Name:="Feuil1"
ActiveSheet.Shapes(1).IncrementLeft -82.5
ActiveSheet.Shapes(1).IncrementTop -165#
ActiveChart.Axes(xlValue).Select
With ActiveChart.Axes(xlValue)
.MinimumScaleIsAuto = True
.MaximumScale = last_val
.MinorUnitIsAuto = True
.MajorUnitIsAuto = True
.Crosses = xlAutomatic
.ReversePlotOrder = False
.ScaleType = xlLinear
.DisplayUnit = xlNone
End With
End Sub