Sub redimarray2D()
Dim Tblo() As Integer 'l'array est declare et dimensionne de facon dynamique
Dim a As Integer
Dim i As Integer, j As Integer
ReDim Tblo(3, 3) 'au premier redimensionnement, on definit les limites des deux dimensions
'remplissage d'un array de 9 elements (3x3)
For j = 1 To 3
For i = 1 To 3
a = i * 10 + j
Tblo(i, j) = a
Next i
Next j
'on etend cet array dans une de ses dimensions pour lui ajouter 6 nouveaux elements (3x2)
For j = 4 To 5
'la boucle exterieure est celle de la dimension qui varie (la derniere de l'array)
ReDim Preserve Tblo(1 To 3, 1 To j)
MsgBox j
For i = 1 To 3
a = i * 10 + j
Tblo(i, j) = a
Next i
Next j
End Sub