Graph, échelle macro

Bonjour le forum,

J'ai un graphique alimenté par un tableau qui change de valeurs et de taille selon un parametrage.
Je ne suis pas satisfait par l'echelle "automatique" de excel.
J'aimerais utiliser un code pour delimiter l'echelle selon les min et max des deux listes (a:a) et (b:b) de mon tableau.

J'ai un debut de code que j'ai fait avec l'enregistreur de macro.
Pour le reste, je bloque encore...

Si vous avez une astuce, un bout de code... n'hesitez pas 🙂
Merci par avance !!!

Cordialement
jb




ActiveSheet.ChartObjects("Chart 1").Activate
ActiveChart.Axes(xlValue).Select
Range("A2").Select
Selection.End(xlDown).Select
...
With ActiveChart.Axes(xlValue)
.MinimumScale = ...
.MaximumScale = ...
.MinorUnitIsAuto = True
.MajorUnit = 1
.Crosses = xlAutomatic
.ReversePlotOrder = False
.ScaleType = xlLinear
.DisplayUnit = xlNone
End With

ActiveChart.Axes(xlCategory).Select
With ActiveChart.Axes(xlCategory)
Range("b2").Select
Selection.End(xlDown).Select...

.MinimumScale = ...
.MaximumScale = ...
.MinorUnitIsAuto = True
.MajorUnit = 1
.Crosses = xlAutomatic
.ReversePlotOrder = False
.ScaleType = xlLinear
.DisplayUnit = xlNone
End With
ActiveWindow.Visible = False
End Sub