Programme sous visual basic

Bonjour,

Bonjour,

j'ai ecris un programme sous visual basic pour additionner des donnees suivant la couleur et il me semble que cela devrai marcher mais en faite pas du tout.
Je suis pas du tout specialiser sur visual basic et j'aimerais savoir si quelqu'un pouvait m'aider sur le programme ci dessous
Merci
duga


Function SUMCOLOR(ZONE As Range, Couleur As String) As Integer
Dim sumvalue As Integer
sumvalue = 0
ZONE.Select
If cell.Font.ColorIndex = 3 Then
Couleur = "red"
End If
For Each cell In ZONE
If cell.Font.ColorIndex = 3 Then
sumvalue = cell.Value + sumvalue
End If
Next cell
SUMCOLOR = sumvalue
End Function