Une macro qui fait ralentir le programme

bonjour j' ais une macro qui ralenti le programme comment je peux faire pour il ralentit pas
voici
Function Couleur(cl As Range) As Long
Application.Volatile
Couleur = cl.Interior.ColorIndex
End Function
Function NVert(cl As Range) As Integer
Application.Volatile
Dim cel As Range
NVert = 0
For Each cel In cl
If Couleur(cel) = 14 Then
NVert = NVert + 1
Else
Exit For
End If
Next
End Function
merci pour votre réponce
bien à vous
luky