[BOISGONTIER]

Bonjour,

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
Formation Excel VBA JB