Question sur les tableaux

Bonjour

je suis bien embetté sur un bout de code qui ne me parait pas sorcier pourtant mais il ne me retourne rien , le voici

Sub affiche()
  Dim i, j As Integer

Dim SV(1 To 8)
 MsgBox Right(Cells(1, 1), 1)
 SV(1) = Array("a", "b", "c", "d", "e")
 SV(2) = Array("f", "g", "h", "i")
 SV(3) = Array("j", "k", "l", "m")
 SV(4) = Array("n", "o", "p", "q")
 SV(5) = Array("r", "s", "t", "u")
 SV(6) = Array("v")
 SV(7) = Array("w", "x", "y", "z")
 SV(8) = Array("wxyz")
 'MsgBox STV(3)(0) --< test
 For i = 1 To 8
  If Right(Cells(1, 1).Value, 1) = i Then

     For j = 0 To UBound(SV(Val(i)))
        MsgBox SV(Val(i))(j) 'ne me retourne rien !!

   Next
  End If
 Next
End Sub

le but etant que si la derniere valeur de type numerique de la cellule "cells(1,1)" est une valeur index de l'un de mes tableaux

alors le msgbox me donne toutes les valeurs du tableau concerné .

Voyez vous ce qui cloche dans mon code ?

Merci

oups !! je viens de trouver il fallait ecrire

 If Right(Cells(1, 1).Value, 1) =val(i) Then