appel d'une fonction depuis une private sub

Bonjour tout le monde d'excel,

j'ai encore un souci

je voudrais effectuer un appel de ma fonction "prime" par la procedure
Btrapports_click (cela calculerai le montant de la prime et le "caserai"
dans la cellule decrite )
Voici mon code
sur la feuille active :

Private Sub Btrapports_Click()
Dim a as string
Dim y, z as integer
If a = "nuit" Then
Sheets(y).Cells(z - 2, 6) = "MAR.:"
Sheets(y).Cells(z - 2, 3) = "22:00"
Sheets(y).Cells(z - 2, 5) = 8
' Sheets(y).Cells(z - 2, 10) = call function prime(jr, hedeb As Date,
hprest, prest, tyconger) ??????
End If

sur un module standard j'ai :

Function prime(pause, hedeb As Date, prest)(feuille y cellule
(z-2,6)(z-2,3)...
If (jr = "LUN.:" Or jr = "MAR.:" Or jr = "MER.:" Or jr = "JEU.:" Or jr =
"VEN.:" Or jr = "SAM.:" Or jr = "DIM.:") And (hedeb >= "6:00:00" And
hedeb < "14:00:00") Then prime =prest * 5
j'espere etre assez clair
si non dites moi

Merci pour votre aide
Andrée et Romuald