Function ArrangGN(ByVal N As Long, ByVal P As Long) As String
'ARRANGEMENT de P objets avec N objets au total

If P > N Then ArrangGN = "#NOMBRE!": Exit Function
P = N - P + 1 'dernier indice dans l'algo factorielle
If P < 0 Then ArrangGN = "#VALEUR!": Exit Function
ArrangGN = FactGN(N, P)

End Function