Uilisation de FORMULA

Bonjour a tous,
Voici un extract d'une de mes macro qui me pose probleme

Mon besoin:
mettre une formule dans une cellule a partir de VB

Sub toto()
For i = 1 To 10
Worksheets("181").Range("M" + Trim(Str(i))).Formula = "=SI(J" + Trim(i) + "<A1;1;0)"
Next i
End Sub

VBA me sort l'erreur 1004 "erreur defini par l'application ou l'objet"
Je ne comprend pas mon erreur
quelqu'un a t il une idée ?

Merci d'avance
Jef