XL 2013 NB.SI 3D Plage

Function compteOccurences(leNom As String, leCode As String)
tabloF = Array("janvier", "février", "mars", "avril", "mai", "juin", "juillet", "août", "septembre", "octobre", "novembre", "décembre")
For i = 0 To 11
With Sheets(tabloF(i))
    lig = Application.Match(leNom, .[A:A], 0)
    If Not IsError(lig) Then
        cpt = cpt + Application.CountIf(.Cells(lig, 2).Resize(1, 12), leCode)
    End If
End With
Next i
compteOccurences = cpt
End Function

Option Explicit

Sub Test()
    Dim CP&, MA&, R&, F&, A&, Sh As Object, Cel As Range, O As Object
    Set O = Feuil2
    CP = 0: MA = 0: R = 0: F = 0: A = 0: O.Range("B2:F10") = vbNullString
    For Each Sh In ThisWorkbook.Worksheets
        If Sh.Name <> "Recap" Then
            For Each Cel In Sh.Range("A2:M6")
                If Cel = "CP" Then CP = CP + 1
                If Cel = "MA" Then MA = MA + 1
                If Cel = "R" Then R = R + 1
                If Cel = "F" Then F = F + 1
                If Cel = "A" Then A = A + 1
            Next Cel
            O.Range("B2") = CP: O.Range("C2") = MA: O.Range("D2") = R: O.Range("E2") = F: O.Range("F2") = A
        End If
    Next Sh
End Sub

Function CompteOccurences(leNom As String, leCode As String)
    Application.Volatile