Bonjour à tous,
Je pense en effet que copier ton message du fichier aurait d'aborder le sujet plus simplement. Des utilisateurs ont leur propre spécialité.
Même si du VBA est demandé, je tente une réponse par formule EXCEL à copier en C7 de la feuille Feuil3 et tirer vers la droite :
=NB.SI.ENS(DECALER(INDIRECT("notes!B"&EQUIV($B$2;notes!$B$1:$B$36;VRAI);VRAI);0;2;;10);C$6)
Ergotamine.