Code VBA et changement de feuille excel

Bonjour,

Je vous explique mon problème :
J'aimerais faire une macro qui mette à jour des cellules en fonction de la semaine en cours et la semaine précédente. Concrètement, j'ai une colonne "cumul", qui a pour valeur le cumul de toutes les semaines précédentes. Cette colonne est dans chaque feuille (les feuilles étant les semaines) et se calcule en fonction du cumul de la semaine précédente et des chiffres de la semaine en cours.

Le problème étant qu'il me fait une erreur '1004' Erreur définie par l'application ou par l'objet.

Je vous colle le bout de code qui ne fonctionne pas :

Sub MaJ()
Dim Semaine As Integer
Dim SemainePrec As Integer
Dim FormuleSom As String
Dim FormuleMoy As String
Semaine = Val(InputBox("Quelle semaine? (Le numéro seulement)"))
SemainePrec = Semaine - 1
Range("A50") = "''S" & SemainePrec & "'"
FormuleSom = "=SOMME(RC[-2];" & Range("A50") & "!RC)"
FormuleMoy = "=MOYENNE(RC[-2];'S" & Range("A50") & "'!RC)"

ChangeLiens
Range("H35").FormulaR1C1 = FormuleSom

EndSub

Seule la ligne Range("H35")FormulaR1C1 = FormuleSom pose problème ...

J'aimerais qu'il mette dans la cellule en question : =SOMME(RC[-2];'S49'!RC) (le S49, comme vous l'avez compris, varie en fonction de la semaine dans laquelle on se trouve)

Des idées ?