Insérer des guillement pour formule VBA

Bonjour à tous ,

Je galère pour traduire cette formule en vba :

        =IF(C141="""";"""";IF(COUNTIF(C:C;C141)>1;"DOUBLON";""))

j'ai tenté cela mais il ne me reconnait pas les guillemets

For i = 1 To dernLigne6

Worksheets("Feuil2").Range("B" & i).FormulaLocal = "=IF(" & Cells(i, 3).Address & "="""";"""";IF(COUNTIF(C:C;" & Cells(i, 3).Address & ")>1;"DOUBLON";""""))"

Next i

si quelqu'un peut me donner un coup de main svp

Merci beaucoup

Bonjour

Tu peux essayer comme cela

Worksheets("Feuil2").Range("B" & i).Formula = "=IF(C141="""""""","""""""",IF(COUNTIF(C:C,C141)>1,""DOUBLON"",""""))"

Une règle à adopter (je ne sais même pas si elle existe ): un guillemet dans une formule excel = 2 guillemets dans la formule VBA

  For I = 1 To DernLigne6
    Worksheets("Feuil2").Range("B" & I).FormulaLocal = _
      "=IF(" & Cells(I, 3).Address & "="""""""";"""""""";IF(COUNTIF(C:C;" & Cells(I, 3).Address & ")>1;""DOUBLON"";""""))"
  Next I