Function Stirling1(ByVal N As Integer, ByVal k As Integer) As Double
'Calcul des nombres de stirling de première espèce
'Vérif des paramètres non nécessaire : si erreur -> #VALEUR! auto

'Déclaractions
Dim I As Integer, L As Integer
ReDim nbs1(N) As Double, nbs2(N) As Double

'Algo
nbs1(1) = 1
For I = 2 To N
    For L = 1 To I
        nbs2(L) = nbs1(L - 1) + (I - 1) * nbs1(L)
    Next L
    For L = 1 To I
        nbs1(L) = nbs2(L)
    Next L
Next I
Stirling1 = nbs1(k)

End Function