Function GetFactoriel(lVal As Long) As Long GetFactoriel = 1 Dim i& For i = 2 To lVal GetFactoriel = i * GetFactoriel Next i End Function