Initialisation de matrice

Dim Mat1(1 To [B][COLOR=red]19[/COLOR][/B], 1 To 2)

Sub test()
Dim Mat1(1 To 19, 1 To 2)
a = 0
For i = 1 To UBound(Mat1, 1)
  For j = 1 To UBound(Mat1, 2)
    a = a + 1
    Mat1(i, j) = a
  Next
Next
End Sub

Sub test()
Mat1 = "1,2,3,4"
Mat2 = "a,b,c,d"
Dim Mat()
ReDim Mat(1 To UBound(Split(Mat1, ",")) + 1, 1 To 2)
For n = 0 To UBound(Split(Mat1, ","))
 Mat(n + 1, 1) = Split(Mat1, ",")(n)
 Mat(n + 1, 2) = Split(Mat2, ",")(n)
Next n
' lecture
For n = LBound(Mat, 1) To UBound(Mat, 1)
 For m = LBound(Mat, 2) To UBound(Mat, 2)
   MsgBox (Mat(n, m))
 Next m
Next n
End Sub

a = Evaluate("{1,2,3;4,5,6;7,8,9;10,11,12}")

a = [{1,2,3;4,5,6;7,8,9;"aa","bb","cc"}]
MsgBox a(3, 1)
MsgBox a(4, 1)