Sommer des cellules suivant un format ?

Function nb_color(plage as range, couleur as variant, optional coul_car as integer = -1)
      dim coula as integer, cel as range, pnt1 as byte, pnt2 as byte
      application.volatile
      if typename(couleur) = "Range" then 
              coula = couleur.interior.colorindex
              coul_car = couleur.font.colorindex
      else
              coula = couleur
      end if
      for each cel in plage
            pnt1 = 0 : pnt2 = 0
            if cel.interior.colorindex = coula then pnt1 = 1
            if coul_car>-1 then
                  if cel.font.colorindex  = coul_car then pnt2 = 1
            end if
            if pnt1*pnt2 = 1 then nb_color = nb_color + 1
      next
end function