Bonsoir,
La déclaration de cette fonction commence comme suivante :
Function SommeSiCouleur(Plage As Range, NumeroDeCouleur%) As Long
Donc retourne des données de type "Long" c'est à dire un nombre entier pas un nombre réel..
Modifie-la comme celles-ci (tu as le choix entre deux versions) pour récupérer le résultat en décimal ::
Function SommeSiCouleur(Plage As Range, NumeroDeCouleur%) As Double
Function SommeSiCouleur(Plage As Range, NumeroDeCouleur%) As Single