=DECALER(MonTableau[[#En-têtes];[Oct-15]];;NBVAL(MonTableau[#En-têtes])-6;NBVAL(MonTableau[Motif]);5)
Sub updateGraphique()
'
' Macro1 Macro
'
ActiveSheet.ChartObjects("Graphique 3").Activate 'on active le graphique à actualiser
ActiveChart.SetSourceData Source:=Range("ZoneATracer") 'on remet la source
ActiveChart.ChartType = xlColumnStacked100 'on applique le type de graphique
ActiveChart.PlotBy = xlRows 'on inverse l'orientation des données
For i = 1 To Range("ZoneATracer").Rows.Count - 1 'on remet les noms de série
ActiveChart.SeriesCollection(i).Name = "='Feuil1'!$H$" & i + 6
Next i
End Sub