Tablau VBA mess erreur

[Hoareau]

Bonjour

La ligne ci-dessous me donne une erreur, quelqu'un peut donner la raison et comment la midifier
J'essai d'avoir le rng en % et le rang

merci

stat(3, J) = NB_Fois_Cites / somme_ligne_2 * 100

"""""""""""""""""""
Sub Compte_Valeur_Tableau()

Dim stat(3, 20)

For i = LBound(stat, 1) To UBound(stat, 1)
For J = LBound(stat, 2) To UBound(stat, 2)


'La première ligne du tableau contient les valeurs de 1 à 20(2ème dimension du tablau)
stat(0, J) = J
'La deuxième ligne du tableau contient le nombre de fois que la valeur de 1 à 20 a été cité depuis le début du tableau
stat(1, J) = CompteVal(Tblo, J)
'La troisième ligne contient la somme de la 2 ème ligne du tableau
stat(2, J) = Application.Sum(Application.Index(stat, 2))
'somme_ligne_2 va servir de réference pour le calcul des rangs %
somme_ligne_2 = Application.Sum(Application.Index(stat, 2))
NB_Fois_Cites = stat(1, J)

'La 4 ème ligne donne le rang en %
stat(3, J) = NB_Fois_Cites / somme_ligne_2 * 100

[O15].Resize(4, 21) = stat

Next

Next

End Sub