Fonction replace dans la série d'un graphique

Bonjour à tous,

Je recherche un peu d'aide pour ma macro qui m'arrache les cheveux !

Voici mon code :

Sub nouvelleannee()
Dim anneeprecedente As Integer 'note l'année précédente
Dim co As ChartObject, s As Series

'test pour remplir les graphes

anneeprecedente = Year(Date) - 1

Sheets(3).Activate
    Cells.Replace what:="#REF", replacement:="2017", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
'c'est ici que commence mes soucis :(
For Each co In Sheets("evolution_" & Year(Date)).ChartObjects
With co.chart
For Each s In .SeriesCollection
s.Formula = Replace(s.Formula, anneeprecedente, Year(Date))
Next s
End With
Next co

Sheets(3).Name = "Evolution_" & Cells(1, 1)
End Sub

Je n'ai mis qu'une partie de mon code, je vais donc vous expliquer ce qui est fait au préalable :

Dans un premier temps, je duplique 3 onglets puis je modifie le nom de l'onglet par X_"la date de cette nouvelle année"

Ensuite j'aimerais que les séries de mes graphiques soit relié à l'onglet de ma nouvelle année. J'utilise donc la fonction replace pour remplacer la valeur de l'année précédente par la valeur de cette nouvelle année.

Je vous remercie d'avance pour votre recherche et votre compréhension.