stocker dans une collection

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

Sub Dictionnaire()
  Set mondico = CreateObject("Scripting.Dictionary")
  mondico.Item("aa") = 12
  mondico.Item("bb") = 13
  mondico.Item("cc") = 11
  mondico.Item("aa") = 15
  [A1:A3] = Application.Transpose(mondico.keys)
  [B1:B3] = Application.Transpose(mondico.items)
  a = mondico.items ' transfert dans tableau a()
  [D1].Resize(mondico.Count) = Application.Transpose(a)
End Sub