Sub Bouton1_QuandClic()
Dim tablo1(), tablo2(), tabloS(1 To 2)
Dim i As Byte
'initialisation des tableaux secondaires
tablo1 = Range('a1:a20')
tablo2 = Range('b1:b20')
'initialisation du tableau principal
tabloS(1) = tablo1
tabloS(2) = tablo2
'boucle sur chaque tableau pour rajouter une colonne
For i = 1 To UBound(tabloS)
RedimensionneTab tabloS(i)
Next i
End Sub
Sub RedimensionneTab(ByRef T)
ReDim Preserve T(1 To UBound(T, 1), 1 To 2)
End Sub