Public Function resultatCoeff(n As Byte, R As Range)
Dim coef As Byte
Dim valcellule As Integer
coef = 5 'ici tu donnes une valeur à coef
valcellule = R.Value ' ici tu récupère la valeur de la cellule
resultatCoeff = n * coef * valcellule ' ici tu renvoi le résultat de lopération
End Function