Nombre maximal de décimales ?

Sub Calcul_2400_décimales_de_Pi()
'D'après Dik T. Winter du CWI Institute de Hollande
Dim a As Long
Dim b As Long
Dim c As Long
Dim d As Long
Dim e As Long
Dim g As Long
Dim f(0 To 8400) As Long
Dim Pi2400 As String

a = 10000
b = 0
c = 8400
Do While b <> c
  f(b) = a / 5
  b = b + 1
Loop
While (c > 0)
    g = 2 * c
    d = 0
    b = c
    While (b > 0)
        d = d + f(b) * a
        g = g - 1
        f(b) = d Mod g
        d = d \ g
        g = g - 1
        b = b - 1
        If (b <> 0) Then d = d * b
    Wend
    Pi2400 = Pi2400 & Format(Int(e + d \ a), "0000")
    If c = 8400 Then Pi2400 = Left(Pi2400, 1) & "," & Right(Pi2400, 3)
    c = c - 14
    e = d Mod a
Wend

Range("A1").Value = Pi2400

End Sub