NB.SI à transformer en VBA

Tu devrais marquer ce fil comme résolu.

Daniel

Bonjour, a tester

en H1 et tirer la formule

=CompteSiVBA($CH$2:$DF$2; Z3)

et dans un module 

Function CompteSiVBA(plage As Range, critere As Variant) As Long
    Dim cel As Range
    Dim compteur As Long
    compteur = 0
    For Each cel In plage
        If cel.Value = critere Then compteur = compteur + 1
    Next cel
    CompteSiVBA = compteur
End Function

OU

en H1 et tirer la formule

=CompteSiPlage($CH$2:$DF$2; Z3)

et dans un module

Function CompteSiPlage(plage As Range, critere As Variant) As Long
    Application.Volatile ' Rend la fonction réactive aux modifications
    CompteSiPlage = WorksheetFunction.CountIf(plage, critere)
End Function

slts