i got a solution thanks all
Option Explicit
Sub ChartMinMax()
Dim iChart As Long
Dim nCharts As Long
nCharts = Sheets("Tr").ChartObjects.count
For iChart = 1 To nCharts
With ActiveSheet.ChartObjects(iChart).Chart
.Axes(xlValue).MaximumScale = Sheets("Tr").Range("A10").Value
.Axes(xlValue).MinimumScale = Sheets("Tr").Range("A9").Value
End With
Next
End Sub