Probleme Macro Jacobi sur Excel

Bonjour,
J'ai excel 2007 installé sur mon ordi. Je n'arrive pas à lancer la macro Jacobi. L'erreur 13 s'affiche à chaque fois. Est ce qu'on pourrais m'aider à trouver d'où vient le problème? Le débogueur m'indique une erreur au niveau de la taille de la matrice. Merci d'avance!!!!

'Const La = 55 'Ligne début d'affichage des résultats
'Const Ca = 2 'Colonne début d'affichage des résultats
'Const NomFeuille = "Données"
Dim Valeurpropres(1 To 50) As Double
Dim ValeursP(1 To 50, 1 To 50) As Double
Dim Vecteurpropres(1 To 50, 1 To 50) As Double
Dim N As Integer 'Dimension de la matrice initiale
Dim N2 As Integer
Dim La As Integer
Dim Ca As Integer
Dim Xn As Double
Dim Ier As Double
Dim S1 As Double
Dim S2 As Double
Dim R As Integer 'Ligne du plus grand élément extra-diagonal
Dim S As Integer 'Colonne du plus grand élément extra-diagonal
Dim AA As Variant 'Tableau de travail recevant la matrice initiale

Sub Jacobi()
Eps = 0.0000000001 'Test d'arrêt
ActiveSheet.Select
'Sheets(NomFeuille).Select

AA = Selection.Value 'Récupération de la matrice initiale
N = UBound(AA, 2) 'Taille de la matrice
N2 = N * N
ReDim RR(1 To N, 1 To N) As Double