Dim ValMaxi As Double
Dim Cht As ChartObject
Dim Ax As Axis
'Récupère la valeur maxi dans la plage C1:C5
'de la feuille active.
ValMaxi = Application.WorksheetFunction. _
Max(ActiveSheet.Range("A1:A5"))
'Représente le premier graphique de la
'feuille active.
Set Cht = ActiveSheet.ChartObjects(1)
Set Ax = Cht.Chart.Axes(xlValue)
Ax.MaximumScale = ValMaxi