mise à jour échelle graphique

[COLOR=DarkSlateGray][B]Private Sub CommandButton1_Click()
Dim Mini As Integer, Maxi As Integer
Dim Plage As String

With ActiveSheet
  Plage = "B6:B" & .Range("B6").End(xlDown).Row
  Mini = Application.Min(Range(Plage)) - 5
  Maxi = Application.Max(Range(Plage)) + 5
  With .ChartObjects(1).Chart.Axes(xlValue)
    .MinimumScale = Mini
    .MaximumScale = Maxi
    .MajorUnit = (Maxi - Mini) / 6 [COLOR=DarkOrange]'2[/COLOR]
  End With
  Plage = "C6:C" & .Range("C6").End(xlDown).Row
  Mini = Application.Min(Range(Plage)) - 5
  Maxi = Application.Max(Range(Plage)) + 5
  With .ChartObjects(1).Chart.Axes(xlValue, xlSecondary)
    .MinimumScale = Mini
    .MaximumScale = Maxi
    .MajorUnit = (Maxi - Mini) / 6 [COLOR=DarkOrange]'2[/COLOR]
  End With
End With
End Sub[/B][/COLOR]