AutoZone Québec, le forum de Essai-Auto.com

Je dois entrer une formule à l'aide de macro (VBA)
La formule est la suivante:
=Len(AA6) - Len(Substitute(",";""))+1

Mon code est le suivant (2 façons)
1)
Formula = "=Len(AA6) - Len(Substitute(" + CellToCount + ";" + Chr(34) + "," + Chr(34) + ";" + Chr(34) + Chr(34) + "))+1"
Worksheets("Sheet1").Range(SelectionTotal).Cells.Value = Formula

2)
Formula = "=Len(AA6) - Len(Substitute(""",""";""""))+1"
Worksheets("Sheet1").Range(SelectionTotal).Cells.Value = Formula


J'ai des problèmes avec les guillemettes il arrête toujours là.
Ça passe pas!

PS.: Le but de la formule est de compter le nombre de virgule dans une cellule.