Function Resu(P As Range, puissance)
Dim t, matrice, i%
t = P 'matrice, plus rapide
ReDim matrice(2, 2) '3 x 3 en base 0
For i = 1 To 9
matrice((i - 1) Mod 3, Int((i - 1) / 3)) = t(1, i)
Next
matrice = puissancemat(matrice, puissance) 'passe en base 1
For i = 1 To 9
t(1, i) = matrice(1 + (i - 1) Mod 3, 1 + Int((i - 1) / 3))
Next
Resu = t
End Function