Function NB_SI_3D(Plage As Variant, Critere As String)
Dim Wsh As Worksheet
Dim maPlage As Range, Cel As Range
'permet le calcul automatique de la fonction
Application.Volatile
'on boucle sur toutes les feuilles du classeur
For Each Wsh In ThisWorkbook.Worksheets
'On écarte du calcul les feuilles qui ne doivent pas être prises en compte
If Wsh.Name <> "Recap" And Wsh.Name <> "Feuil2" And Wsh.Name <> "Feuil3" Then
'on affecte la plage de cellules concernées à notre variable de type Range
Set maPlage = Wsh.Range(Plage)
'Dans cette plage, on boucle sur totues les cellules
For Each Cel In maPlage
'si la cellule contient CA, on ajoute 1 à la fonction
If Cel.Value = Critere Then NB_SI_3D = NB_SI_3D + 1
If Cel.Value = Critere & "/2" Then NB_SI_3D = NB_SI_3D + 0.5
Next Cel 'cellule suivante
End If 'fin du test sur les noms des feuilles
Next Wsh 'feuille suivante
If NB_SI_3D = 0 Then NB_SI_3D = ""
End Function