ActiveSheet.ChartObjects("Graphique 1").Activate
ActiveChart.Axes(xlValue, xlSecondary).MaximumScaleIsAuto = True
ActiveChart.Axes(xlValue, xlPrimary).MaximumScaleIsAuto = True
If ActiveChart.Axes(xlValue, xlPrimary).MaximumScale = 0 Then
ActiveChart.Axes(xlValue, xlSecondary).MaximumScale = 0
ActiveChart.Axes(xlValue, xlSecondary).MinimumScale = -1
Else
If ActiveChart.Axes(xlValue, xlPrimary).MinimumScale = 0 Then
ActiveChart.Axes(xlValue, xlSecondary).MaximumScale = 1
ActiveChart.Axes(xlValue, xlSecondary).MinimumScale = 0
Else
ActiveChart.Axes(xlValue, xlSecondary).MaximumScale = ActiveChart.Axes(xlValue, xlPrimary).MaximumScale / 100
ActiveChart.Axes(xlValue, xlSecondary).MinimumScale = ActiveChart.Axes(xlValue, xlPrimary).MinimumScale / 100
End If
End If