Mise à jour rapide légende de graphique

Sub NomSérie1()
Dim w As Worksheet, ch As ChartObject
On Error Resume Next 's'il n'y a pas 2 séries
For Each w In Worksheets
  For Each ch In w.ChartObjects
    ch.Chart.SeriesCollection(1).Name = 2013
    ch.Chart.SeriesCollection(2).Name = 2014
  Next
Next
End Sub

Sub NomSérie2()
Dim w As Worksheet, ch As ChartObject, s As Object
For Each w In Worksheets
  For Each ch In w.ChartObjects
    For Each s In ch.Chart.SeriesCollection
      If IsNumeric(s.Name) Then s.Name = s.Name + 1
    Next
  Next
Next
End Sub

Sub NomSérie3()
Dim w As Worksheet, ch As ChartObject
On Error Resume Next 's'il n'y a pas 2 séries
For Each w In Worksheets
  For Each ch In w.ChartObjects
    ch.Chart.SeriesCollection(1).Name = "=matrice!$A$2"
    ch.Chart.SeriesCollection(2).Name = "=matrice!$A$11"
  Next
Next
End Sub