Utilisation des fonctions

Bonjour a tous.
g la fonction suivante:

Function spr(plage As Range, coul As Integer) As Double
Dim par As Range
Dim dep As Integer
Dim mult As Double
Dim spro As Double
Dim ss As Double
dep = plage.Column
For Each par In plage
If par.Column = dep Then
mult = par.Value
Else
If par.Interior.ColorIndex = coul Then
spro = spro + (mult * par.Value)
ss = ss + par.Value
End If
End If
Next
spr = spro / ss
End Function
Function couleur(a As Range) As Integer
couleur = a.Interior.ColorIndex
End Function

mais est ce que en début et fin de procédure je dois mettre un sub titre et un end sub ??