Le code ultra simple ci-dessous plante (erreur 1004) et je ne sais pas pourquoi!
La formule est-elle trop longue?

Merci

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
Sub Macro4()
 
    Range("X2").Select
    ActiveCell.FormulaR1C1 = "=IF(RC[-11]<59,7998;5,99;IF(AND(RC[-11]>59,7999;RC[-11]<119,5998);6,99;IF(AND(RC[-11]>119,5999;RC[-11]<179,3998);7,99;IF(AND(RC[-11]>179,3999;RC[-11]<239,1998);8,99;IF(AND(RC[-11]>239,1999;RC[-11]<298,998);10,99;IF(AND(RC[-11]>298,999;RC[-11]<478,3998);11,99;IF(AND(RC[-11]>479,3999;RC[-11]<597,998);12,99;IF(RC[-11]>597,999;13,99;0))))))))"
    Range("X2").Select
    Selection.AutoFill Destination:=Range("X2:X2371"), Type:=xlFillDefault
    Range("X2:X2371").Select
End Sub