Modifier une formule

Bonjour

Pas très clair mais un essai

Sub ok()
Dim h As Long, li1 As Long, li2 As Long, co As String
Dim f As String
co = "O"
li1 = 6
li2 = 30
h = 3
f = "=NB.SI(" & co & li1 & ":" & co & li2 & ";" & """X""" & ")/2"
MsgBox f
Cells(2, h).FormulaLocal = f
li2 = 100
h = 5
f = "=NB.SI(" & co & li1 & ":" & co & li2 & ";" & """X""" & ")/2"
Cells(2, h).FormulaLocal = f
End Sub

Si ça ne correspond pas à ta demande, il faudra en dire un peu plus

Cdlmnt