Copier une formule en VBA

Bonjour,

je voulais dans une plage de cellule copier cette formule

=SOMMEPROD((JOURSEM(d.dates;2)=$B370)*(d.données<>""))

du coup mon code est le suivant:

With sheet    
        ColDeb = 3
        ColFin = 3
        LigDeb =370
        LigFin = 376
       .Cells(LigDeb, ColDeb).FormulaLocal = "=SOMMEPROD(JOURSEM(d.dates;2)=$B370)*(d.données<>"")" ' le débogueur s'arrête ici               
      .Cells(LigDeb, ColDeb).AutoFill _
        Destination:=.Range(.Cells(LigDeb, ColDeb), .Cells(LigFin, ColDeb)), Type:=xlFillDefault

C'est blizzard quand même cette histoire,

cette ligne marche nickel

.Cells(LigDeb, ColDeb).FormulaLocal = "=NB.SI(D$2:D$367;$A369)"

si vous avez une idée là je sèche complètement,

Merci

Bonjour,

Les guillemets doivent être doublés :

.Cells(LigDeb, ColDeb).FormulaLocal = "=SOMMEPROD(JOURSEM(d.dates;2)=$B370)*(d.données<>"""")"

A+

Bonsoir Frangy,

Merci pour ce petit détail j'aurai pu chercher longtemps,

Je valide bonne soirée