Sub a()
Dim t1() As Variant
ReDim t1(1 To 2)
' Redimension de la premiére case du tableau t1(1)
' ReDim t1(1).t(1 To 3, 1 To 1)
Dim Ttemp() As Variant
ReDim Ttemp(1 To 3, 1 To 1)
' Methode ci-dessous
t1(1) = Ttemp
Erase Ttemp
' il n y a plus l' Erreur 2015 "Pour chaque case a la creation de" : t1(1)(1, 1) / t1(1)(2, 1) / t1(1)(2, 1)
' Donc lorsque l'on remplis c'est même case c'est correcte : les cases sont vide
' Voir ci dessous
t1(1)(1, 1) = "Case1"
t1(1)(2, 1) = "Case2"
t1(1)(3, 1) = "Case3"
' Le tableau de tabeaux de...