XL 2016 Nombre de (jours) dans le mois...et donc l'année

Bonjour à tout le monde,

J'ai bricolé cette formule, par exemple, en R5 sur ma feuille "calendrier" pour obtenir le nombre de lundis :

=NB.JOURS.OUVRES.INTL(C5;FIN.MOIS(C5;0);"0111111")+NB.JOURS.OUVRES.INTL(D5;FIN.MOIS(D5;0);"0111111")+NB.JOURS.OUVRES.INTL(E5;FIN.MOIS(E5;0);"0111111")++NB.JOURS.OUVRES.INTL(F5;FIN.MOIS(F5;0);"0111111")++NB.JOURS.OUVRES.INTL(G5;FIN.MOIS(G5;0);"0111111")+NB.JOURS.OUVRES.INTL(H5;FIN.MOIS(H5;0);"0111111")+NB.JOURS.OUVRES.INTL(I5;FIN.MOIS(I5;0);"0111111")+NB.JOURS.OUVRES.INTL(J5;FIN.MOIS(J5;0);"0111111")+NB.JOURS.OUVRES.INTL(K5;FIN.MOIS(K5;0);"0111111")+NB.JOURS.OUVRES.INTL(L5;FIN.MOIS(L5;0);"0111111")+NB.JOURS.OUVRES.INTL(M5;FIN.MOIS(M5;0);"0111111")+NB.JOURS.OUVRES.INTL(N5;FIN.MOIS(N5;0);"0111111")

Vu la construction du calendrier, je n'ai pas réussi à trouver mieux.

Peut-être une meilleure proposition ?

merci par avance