Bonjour à tous et à toutes!

J'ai un petit soucis sur un code pourtant assez simple : je créé une macro à l'aide de l'enregistrement automatique. Lorsque que j'éxécute cette macro pour refaire la même opération, cela ne fonctionne pas. Voici la macro en question :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Columns("S:S").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Range("S1").Select
    ActiveCell.FormulaR1C1 = "test"
    Columns("S:S").Select
    Selection.NumberFormat = "General"
    Range("S2").Select
    ActiveCell.FormulaR1C1 = _
        "=IF(RC[-2]=""MAX"",IF(RC[-6]=1,RC[-1],IF(RC[-6]=2,RC[-1]+R[1]C[-1],IF(RC[-6]=3,RC[-1]+R[1]C[-1]+R[2]C[-1],IF(RC[-6]=4,RC[-1]+R[1]C[-1]+R[2]C[-1]+R[3]C[-1],IF(RC[-6]=5,RC[-1]+R[1]C[-1]+R[2]C[-1]+R[3]C[-1]+R[4]C[-1],IF(RC[-6]=6,RC[-1]+R[1]C[-1]+R[2]C[-1]+R[3]C[-1]+R[4]C[-1]+R[5]C[-1],IF(RC[-6]=7,RC[-1]+R[1]C[-1]+R[2]C[-1]+R[3]C[-1]+R[4]C[-1]+R[5]C[-1]+R[6]C[-1],IF(RC[" & _
        "[-1]+R[1]C[-1]+R[2]C[-1]+R[3]C[-1]+R[4]C[-1]+R[5]C[-1]+R[6]C[-1]+R[7]C[-1],IF(RC[-6]=9,RC[-1]+R[1]C[-1]+R[2]C[-1]+R[3]C[-1]+R[4]C[-1]+R[5]C[-1]+R[6]C[-1]+R[7]C[-1]+R[8]C[-1],IF(RC[-6]=10,RC[-1]+R[1]C[-1]+R[2]C[-1]+R[3]C[-1]+R[4]C[-1]+R[5]C[-1]+R[6]C[-1]+R[7]C[-1]+R[8]C[-1]+R[9]C[-1],IF(RC[-6]=11,RC[-1]+R[1]C[-1]+R[2]C[-1]+R[3]C[-1]+R[4]C[-1]+R[5]C[-1]+R[6]C[-1]+R[7]" & _
        "]C[-1]+R[9]C[-1]+R[10]C[-1],IF(RC[-6]=12,RC[-1]+R[1]C[-1]+R[2]C[-1]+R[3]C[-1]+R[4]C[-1]+R[5]C[-1]+R[6]C[-1]+R[7]C[-1]+R[8]C[-1]+R[9]C[-1]+R[10]C[-1]+R[11]C[-1],IF(RC[-6]=13,RC[-1]+R[1]C[-1]+R[2]C[-1]+R[3]C[-1]+R[4]C[-1]+R[5]C[-1]+R[6]C[-1]+R[7]C[-1]+R[8]C[-1]+R[9]C[-1]+R[10]C[-1]+R[11]C[-1]+R[12]C[-1]))))))))))))),"""")"
    Range("S2").Select
    Selection.AutoFill Destination:=Range("S2:S5000")
Vous l'aurez compris, le code bute sur la longue formule qu'il faut entrer dans la cellule S2. J'imagine qu'il y a un soucis de guillement ou quelque chose comme ça.
Pendant l'enregistrement automatique de la macro, je sélectionne la cellule S2 puis colle une formule que j'ai copié depuis un autre fichier. Cela marche très bien lors de l'enregistrement, mais la macro refuse la formule.
Pour info, la formule est celle-ci:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
 
=SI(Q2="MAX";SI(M2=1;R2;SI(M2=2;R2+R3;SI(M2=3;R2+R3+R4;SI(M2=4;R2+R3+R4+R5;SI(M2=5;R2+R3+R4+R5+R6;SI(M2=6;R2+R3+R4+R5+R6+R7;SI(M2=7;R2+R3+R4+R5+R6+R7+R8;SI(M2=8;R2+R3+R4+R5+R6+R7+R8+R9;SI(M2=9;R2+R3+R4+R5+R6+R7+R8+R9+R10;SI(M2=10;R2+R3+R4+R5+R6+R7+R8+R9+R10+R11;SI(M2=11;R2+R3+R4+R5+R6+R7+R8+R9+R10+R11+R12;SI(M2=12;R2+R3+R4+R5+R6+R7+R8+R9+R10+R11+R12+R13;SI(M2=13;R2+R3+R4+R5+R6+R7+R8+R9+R10+R11+R12+R13+R14)))))))))))));"")
L'erreur est :
"1004 : Erreur définie par l'application ou par l'objet"

Cela m'aiderait beaucoup si vous pouviez m'aider à trouver pourquoi la macro n'est pas fonctionnelle. Merci d'avance!