[BOISGONTIER]

Bonjour,

>Mais il me renvoie erreur de compilation et toujours #NOM? qui s'affiche dans cellule B7

Il faut insérer la fonction dans un module: Alt+F11 et Insertion/Module

Function NbSiMZ(champrech As Range, valCherchée)
  Application.Volatile
  temp = 0  
  For i = 1 To champrech.Areas.Count
    For j = 1 To champrech.Areas(i).Count
      If valCherchée = champrech.Areas(i)(j) Then
        temp = temp + 1
      End If
    Next j
  Next i
  NbSiMZ = temp
End Function

JB