Function sum_font_color_bold(plage As Range, couleur As Integer, valeur As Boolean) As Double
Application.Volatile
Dim gw_cel As Range, nb As Double
nb = 0
For Each gw_cel In plage
If gw_cel.Font.ColorIndex = couleur And gw_cel.Font.Bold = valeur Then nb = nb + gw_cel.Value
Next
sum_font_color_bold = nb
End Function