Traduction formule Excel en VBA

Bonjour a tous, voici mon nouveau sujet:

voici ma macro:

Public Sub AddColumnInTable()
Dim lc As ListColumn, lCol As Long
    With Range("Tableau1").ListObject
        lCol = .ListColumns.Count
        Set lc = .ListColumns.Add
        .TotalsRowRange(lCol + 1).Formula = _
                "=COUNTIF(" & lc.DataBodyRange.Address & ",""x"")"
    End With
End Sub

Cette macro permet d'ajouter une colonne à mon tableau1 de dimension B1:B18 et étend la formule qui se trouve en B18 qui est: =NB.SI($B$2:$B$17;"x")

pour étendre cette fameuse formule j'utilise cette ligne de code:

        .TotalsRowRange(lCol + 1).Formula = _
                "=COUNTIF(" & lc.DataBodyRange.Address & ",""x"")"

J'aimerais remplacer la formule =NB.SI($B$2:$B$17;"x") par =SI(NB.SI(B2:B19;"X");"X";"") mais je ne sais pas comment le traduire en vba pouvez-vous m'aider ?

Problème résolu:

Public Sub AddColumnInTable()
Dim lc As ListColumn, lCol As Long
    With Range("Tableau1").ListObject
        lCol = .ListColumns.Count
        Set lc = .ListColumns.Add
        .TotalsRowRange(lCol + 1).Formula = _
                "=IF(COUNTIF(" & lc.DataBodyRange.Address & ",""x""),""X"","""")"
    End With
End Sub

Désolé pour le dérangement

Cdt