vba et mise à l'echelle des graphiques

salut à tous,

J'ai besoin de votre aide car je ne comprends pas pkoi dans mon histogramme(GRAPH3) l'echelle ne se mets pas à jour automatiquement, alors que tout mes autres graphiques sont ok

voici mon code

Sub majechelle()
Worksheets("Graphic").ChartObjects("Graph1").Activate
ActiveChart.Axes(xlValue).Select
With ActiveChart.Axes(xlValue)
.MinimumScale = Range("Y5").Value
.MaximumScale = Range("Y4").Value
End With

Worksheets("Graphic").ChartObjects("Graph4").Activate
ActiveChart.Axes(xlValue).Select
With ActiveChart.Axes(xlValue)
.MinimumScale = Range("Y5").Value
.MaximumScale = Range("Y4").Value
End With

Worksheets("Graphic").ChartObjects("Graph3").Activate
ActiveChart.Axes(xlCategory).Select
With ActiveChart.Axes(xlCategory)
.MinimumScale = Range("Y5").Value
.MaximumScale = Range("Y4").Value
End With

End Sub

Pouvez vous m'eclairer et me dire où j m suis planté ???

Merci d'avance
Franck