Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
If Not Intersect(Target, [O9,AD9,AN9,AX9,BI9]) Is Nothing Then
With Application: .Calculation = xlManual: .EnableEvents = False: End With 'sinon c'est la cata !!!!
[O9,AD9,AN9,AX9,BI9] = Target.Value
With Application: .Calculation = xlAutomatic: .EnableEvents = True: End With
Worksheets(1).Shapes("Graphique_N").Chart.Axes(xlValue).MinimumScale = MuchasCol([O9], Range("AM15:AM47"), 2, 1) '<---
Worksheets(1).Shapes("Graphique_MV").Chart.Axes(xlValue).MinimumScale = [AX15]
End If
If Not Intersect(Target, [O8,P56,P57,P59,P60]) Is Nothing Then
Target.Select
End If
Application.ScreenUpdating = True
End Sub