Actualisation automatique formule/module

Bonjour,

J'ai créé un calendrier avec plusieurs formules qui comptent les jours, weekends, jours fériés, etc.

J'ai aussi créé un module pour compter les cellules qui ont un remplissage de couleur bleu pour mes Congés Payés.

Voici mon module :

Function CompterCouleur(PlageCouleur As Range, Couleur As Range)

Dim CodeCouleur As Integer
Dim NbrCouleur As Integer

CodeCouleur = Couleur.Interior.ColorIndex

Set CCell = PlageCouleur
For Each CCell In PlageCouleur
If CCell.Interior.ColorIndex = CodeCouleur Then
NbrCouleur = NbrCouleur + 1
End If

Next CCell

CompterCouleur = NbrCouleur

End Function

Et je mets ensuite la formule "=CompterCouleur($D6:$AH6;$AM$5)" dans la cellule AI6 pour compter toutes les cellules qui ont un remplissage "bleu" dans cette plage. (AM5 contient la couleur à chercher "bleu" et "D6:AH6" est la plage).

Le module fonctionne mais j'ai un souci car il ne s'actualise pas automatiquement. 

Exemple:

Si je rajoute mon remplissage dans la plage :

La formule ne s'actualise pas et le compte reste à 0. Je suis obligé d'aller dans la formule et appuyer sur Entrée pour qu'elle s'actualise.

Savez-vous comment faire pour que le compte s'actualise automatiquement ?

Je vous ai mis mon fichier ci-dessous:

Mon fichier
Windows / Chrome 119.0.0.0