Formule avec condition si caractère gras

Function SommeGras(champ As Range)
    Application.Volatile
    Dim i, t
    t = 0
    For Each i In champ
      If i.Font.Bold = True Then
        If IsNumeric(i) Then t = t + Val(i.Value)
      End If
    Next i
    SommeGras = t
End Function

Function sommeNonGras(champ As Range)
    Application.Volatile
    Dim i, t
    t = 0
    For Each i In champ
      If i.Font.Bold = False Then
         If IsNumeric(i) Then t = t + i.Value
      End If
    Next i
    sommeNonGras = t
End Function

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  Calculate
End Sub