Sub BoucleGraphique()
Dim graph As Object, nbgraph As Long
nbgraph = ActiveSheet.ChartObjects.Count
For Each graph In ActiveSheet.ChartObjects
graph.Activate
ActiveChart.Axes(xlValue).Select
ActiveChart.Axes(xlValue).MinimumScale = -0.04
ActiveChart.Axes(xlValue).MaximumScale = 0.2
Next graph
End Sub