Longueur d'une variable tableau

Rebonjour,
j'aimerais utiliser ce code, afin de séparer plusieurs valeurs d'une cellule
(pour l'isntant je met toutes les separtions dans le tableau puis je veux mettre dans chaque cellule le prenom

Le probleme c'est que je ne connais pas la taille de ce tableau ( qui peut varier)
Comment faire pour connaitre sa taille?

Merci d'avance milles fois!

Jennifer

Sub macro2()
Dim Tab() As String
Cells.Find(what:="Prenoms").Select
r = 0
While ActiveCell.Offset(r + 1, 0).Value <> ""
Tab = Split(ActiveCell.Offset(r + 1, 0).Value, ",")
j=0
For i = 0 to ( max du tableau??)
if tab(i)<>"" then
activecell.offset(r+1,j)=Tab(i)
j=j+1
end if
next
r = r + 1
Wend

End Sub