Sub Zonecombinée672_QuandChangement()
ActiveSheet.ChartObjects('Graphique R2').Activate
pp = ActiveSheet.Cells(3, 1).Value + 7
i = 88
While ActiveSheet.Cells(pp, i) <> ''
i = i + 1
Wend
data = '=R' & pp & 'C88:R' & pp & 'C' & i
ActiveChart.SeriesCollection(1).Values = data
chart_title = ActiveSheet.Cells(pp, 4)
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = chart_title
End With
end sub