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