Sub test1()
Dim tablo1
Dim tablo2
Dim tablo3(1 To 2)
'alimentation des variables secondaires
tablo1 = Range("a1:b5"): tablo2 = tablo1
'alimentation de la variable tableau principal
tablo3(1) = tablo1
tablo3(2) = tablo2
'lecture de la premiere occurence de chaque tableau secondaire
For i = 1 To 2
MsgBox tablo3(i)(1, 1)
Next i
End Sub