Pb d'échelle sur un graphique

Dim MinX As Double, MaxX As Double
Dim MinY As Double, MaxY As Double
Dim MinY1 As Double, MinX1 As Double
Dim FinX As Integer, Annee 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
MinX1 = MinX
MinY1 = MinY
MinX = MinX - 0.5
MinY = MinY - 0.5

ActiveChart.Axes(xlValue).Select
    
    With ActiveChart.Axes(xlValue)
    .CrossesAt = CDec(Feuil1.Range('D5').Value)
    .MinimumScaleIsAuto = True
    .MaximumScaleIsAuto = True
    .MinimumScale = MinY
    .MaximumScale = MaxY
    
    If Feuil1.Range('K5').Value = 'OUI' Then
    .MajorTickMark = xlOutside
    .MinorTickMark = xlNone
    .TickLabelPosition = xlNextToAxis
    End If
    
    End With
    
ActiveChart.Axes(xlCategory).Select
    With ActiveChart.Axes(xlCategory)
      .CrossesAt = CDec(Feuil1.Range('C5').Value)
      .MinimumScaleIsAuto = True
      .MaximumScaleIsAuto = True
      .MinimumScale = MinX
      .MaximumScale = MaxX
    
    If Feuil1.Range('K5').Value = 'OUI' Then
    .MajorTickMark = xlOutside
    .MinorTickMark = xlNone
    .TickLabelPosition = xlNextToAxis
    End If
     
    End With