Fonction personnalisée (compter cellule avec police)

Bonjour,

Je souhaite compter les cellules qui ont une police rouge dans un tableau.

Petite difficulté il se peut que certains texte de cellule contiennent à la fin des charactères d'une autre couleur dont je ne veux pas tenir compte.

J'ai donc construit la fonction avec cette méthode :

Public Function CompterParCouleurFond(Plage As Range, Couleur As Range)

     
     Application.Volatile

     For Each Cellule In Plage

         If Cellule.Characters(2, 1).Font.Color = Couleur.Font.Color Then
             CompterParCouleurFond = CompterParCouleurFond + 1

         End If

     Next

End Function

Je rencontre 2 anomalies pour que cette fonction soit fiable :

Je devrais y arriver par moi même mais elle me compte aussi les cellules vides qui ont la couleur de police recherché.

Mais surtout ce que je ne maitrise pas du tout c'est que si je mets à jour le contenu du tableau la fonction ne fait pas le recalcule automatiquement elle reste sur la donnée précédente.

Merci pour votre aide

Windows / Edge 114.0.1823.51