Dernière ligne d'un tableau

Bonjour,
Je débute dans le VBA, at malgré mes recherches certaines subtilités m'échappent.
J'ai écrit le code suivant :

Sub TabTou()

Dim Derlig As Long
Derlig = Range("A65536").End(xlUp).Row
Dim TabTou(1 To Derlig, 1 To 31, 1 To 12) As Variant
Dim i As Byte, j As Byte, k As Byte
For i = 1 To UBound(TabTou, 1)
For j = 1 To UBound(TabTou, 2)
TabTou(i, j) = i & j
Debug.Print TabTou(i, j)
Next j
Next i

End Sub

Et lorsque je lance cette macro, il me dit qu'une constante est requise.
J'ai lancé un espion, et c'est Derlig qui semble vide.

Pourrais t'on m'expliquer pourquoi ?
Je précise que je travaille sous Excel 2007 (perso) mais que cette macro est pour excel 2003.

Merci d'avance