Allez, va... (mais fais attention la prochaine fois tant au thème - VB5 ou VB6 et non VB.Net - qu'à la question elle-même ...
Voilà un exemple
Private Sub Command1_Click()
Dim tabgen(2) As Variant
Dim tab1(3) As Integer, tab2(2) As String, tab3(3) As Integer
For i = 0 To 3
tab1(i) = i
Next
For i = 0 To 2
tab2(i) = "a" & i
Next
For i = 0 To 3
tab3(i) = 2 * i
Next
tabgen(0) = tab1
tabgen(1) = tab2
tabgen(2) = tab3
For i = 0 To UBound(tabgen)
For j = 0 To UBound(tabgen(i))
MsgBox tabgen(i)(j)
Next
Next
End Sub
Je te déconseille personnellement très vivement de tels mécanismes... (mais fais comme tu l'entends) ... ne serait-ce qu'en pernsant à une maintenance ultérieure...
____________________
Très intéressante fable, L'OISELEUR, L'AUTOUR ET L'ALOUETTE !
Cliquer sur "Réponse acceptée" (en bas d'une solution avérée adéquate) rendra service à d'autres. PENSEZ-Y.