somme de valeurs si est en bleu

Function SomBleu(Col As String)
Application.Volatile
    Dim c As Range
    For Each c In Intersect(Columns(Col), ActiveSheet.UsedRange)
        If c.Font.ColorIndex = 41 Then SomBleu = SomBleu + c
    Next
End Function

Function Maj (Col As String)
Application.Volatile
    Dim c As Range
    For Each c In Intersect(Columns(Col), ActiveSheet.UsedRange)
        If c<> " " Then c=ucase(left(c))& right(c,len(c)-1)
    Next
End Function

Function Maj (Col As String)
Application.Volatile
    Dim c As Range
    For Each c In Intersect(Columns(Col), ActiveSheet.UsedRange)
        If c<> "" Then c=Application.proper(c)
    Next
End Function