Probleme insertion formule de dénombrement

Bonjour,
j'avoue je séche,
j'aimerais insérer une formule via une macro, mais il me renvoie une erreur 13 .....

Code:

---

1 2 3 4 5 6 7 8

Dim LCol as integer   LCol=9   with worksheets("Feuil1") .Cells(5, LCol).Formula = "=NB.SI(" & .Range(.Cells(6, LCol), .Cells(50, LCol)) & ";""P"")" end with

---

Si quelqu'un peu m'aider.....

Bonjour fenchnaab

Peut-être avec FormulaLocal vu que la formule est en français.
Et aussi Address vu que c'est l'adresse qui est requise dans cette fonction.

Code:

---

.Cells(5, LCol).FormulaLocal = "=NB.SI(" & .Range(.Cells(6, LCol), .Cells(50, LCol)).Address & ";""P"")"

---