Dim MinX As Double, MaxX As Double, MinY As Double, MaxY As Double
Dim FinX As Integer
FinX = Feuil1.Range('C7').End(xlToRight).Column
MaxX = Application.WorksheetFunction.Max(Feuil1.Range(Cells(8, 3), Cells(8, FinX)))
MinX = Application.WorksheetFunction.Min(Feuil1.Range(Cells(8, 3), Cells(8, FinX)))
MaxY = Application.WorksheetFunction.Max(Feuil1.Range(Cells(9, 3), Cells(9, FinX)))
MinY = Application.WorksheetFunction.Min(Feuil1.Range(Cells(9, 3), Cells(9, FinX)))
MaxX = MaxX + 0.5
MaxY = MaxY + 0.5
Graph2.Select
ActiveChart.Axes(xlValue).Select
With ActiveChart.Axes(xlValue)
.CrossesAt = MinY
.MinimumScaleIsAuto = True
.MaximumScaleIsAuto = True
.MinimumScale = MinY
.MaximumScale = 50MaxY
End With
ActiveChart.Axes(xlCategory).Select
With ActiveChart.Axes(xlCategory)
.CrossesAt = MinX
.MinimumScaleIsAuto = True
.MaximumScaleIsAuto = True
.MinimumScale = MinX
.MaximumScale = MaxX
End With