calcul des heures de travails en fonction de la couleur de la case?

Public Function ModParCouleurCellule(Zone As Range, couleur As String)
'additionne le contenu des cellules d'une zone
'en fonction de la couleur de remplissage
'Dim C As Range
Dim c
Dim cvsomme
'Dim moda
'moda = (C.Cells(1, 2).Value - C.Cells(1, 1).Value)
Application.Volatile True
    Select Case couleur
        Case "jaune"
            couleur = 6
        Case "vert"
            couleur = 48
    End Select
    For Each c In Zone.CurrentRegion
    
        'If C.Interior.ColorIndex = couleur Then cvsomme = cvsomme + moda
        If c.Interior.ColorIndex = couleur Then
       'If IsNumeric(C.Value) Then cvsomme = cvsomme + C.Cells(1, 1)
        'cvsomme = C.Cells(1, 0) + C.Cells(1, 1)
               
        cvsomme = c.Offset(1, 0)
     End If
   Next c
    ModParCouleurCellule = cvsomme
End Function