Function PuissanceGN(ByVal Nb1 As String, ByVal Expo As Long) As String
'PUISSANCE ENTIERE D'UN GRAND NOMBRE (décimal ou entier)
If Expo = 0 Then PuissanceGN = 1: Exit Function
If Expo = 1 Then PuissanceGN = Nb1: Exit Function
PuissanceGN = "1"
Do
    If Expo And 1 Then PuissanceGN = PGN(PuissanceGN, Nb1)
    Expo = Expo \ 2
    Nb1 = PGN(Nb1, Nb1)
Loop While Expo > 1
    PuissanceGN = PGN(PuissanceGN, Nb1)

End Function