function Factorielle(byval pNb as integer) as integer If pNb=1 Then Return 1 Else Return pNb*Factorielle(pNb-1) End If End Function