Sub MajGraphique()
Dim zone As Range, graphique As Chart
With ThisWorkbook.Sheets("Feuil1")
'récupérer la zone des alarmes (en colonne H)
Set zone = .Range("H20:H" & .Range("H" & .Rows.Count).End(xlUp).Row)
'récupérer le graphique (le nom sera peut-être à adapter)
Set graphique = .ChartObjects("Chart 3").Chart
'modifier les valeurs de l'"axe X" de la première série de données (valeurs de la "zone")
graphique.SeriesCollection(1).XValues = zone.Value
'modifier les valeurs de l'"axe Y" de la première série de données (valeurs de la "zone" décalée d'une colonne)
graphique.SeriesCollection(1).Values = zone.Offset(0, 1).Value
End With
End Sub