Bonjour,
Avec toutes ces conditions, ça risque de faire une formule à rallonge. Après une réorganisation, j'ai opté pour une fonction personnalisée, la formule en est réduite à:
=SIERREUR(Compte(B$3;B$4;B$5;$A6);"")
le code de la fonction:
Function Compte(Feuille As String, Titre As String, Reference As String, Mois As String) As Double
'recherche le titre
T = Application.Match(Titre, Sheets(Feuille).Columns(1), 0)
'recherche le mois
M = Application.Match(Mois, Range(Sheets(Feuille).Cells(T, "B"), Sheets(Feuille).Cells(T + 12, "B")), 0) + T - 1
'recherche la référence
R = Application.Match(Reference, Sheets(Feuille).Rows(T), 0)
Compte = Sheets(Feuille).Cells(M, R)
End Function
Cdlt