Variable tableau et Array

Option Explicit
'Option Base 1

Sub arraysimple_SansOptionBase1()
Dim a As Variant
Dim i As Integer
'--- Un tableau à une dimension et 13 éléments ---
a = Array(3, 4, 5, 6, 7, 8, 36, 10, 37, 38, 39, 14, 15)
MsgBox prompt:="Plus petit indice = " & LBound(a) & vbCrLf & "Plus grand indice = " & UBound(a), _
       Title:="Sans l'emploi de Option Base 1"
For i = LBound(a) To UBound(a)
  Cells(i + 1, 1) = a(i)  'pour la ligne réceptrice on ajoute 1 à i
Next i
End Sub

Sub arraysimple_SimuleOptionBase1()
Dim a As Variant
Dim i As Integer
'--- Un tableau à une dimension et 14 éléments dont le 1er est vide ---
a = Array(, 3, 4, 5, 6, 7, 8, 36, 10, 37, 38, 39, 14, 15)
MsgBox prompt:="Plus petit indice = " & LBound(a) & vbCrLf & "Plus grand indice = " & UBound(a) & vbCrLf & _
    "On omet le 1er élément (0)", Title:="Simulation de Option Base 1"
For i = 1 To UBound(a) 'en partant de 1 on omet l'élément vide
  Cells(i, 2) = a(i)  'la ligne réceptrice est égale à i
Next i
End Sub

Sub ArrayEmboités_SansOptionBase1()
Dim tbl As Variant
Dim lig%, col%
'--- Un tableau à une dimension constitué de 3 tableaux à une dimension
'--- eux-mêmes constitués de 4 éléments de même type ---
tbl = Array( _
  Array("ab", "bc", "cc", "de"), _
  Array("ef", "fg", "gh", "hi"), _
  Array(10, 20, 30, 40))
For lig = LBound(tbl) To UBound(tbl)
  For col = LBound(tbl(lig)) To UBound(tbl(lig))
    Cells(lig + 1, col + 1 + 4) = tbl(lig)(col) 'ligne réceptrice = lig+1 , colonne réceptrice = col+1 (+ l'écart offset de 4)
  Next col
Next lig
End Sub

Sub ArrayEmboités2_SansOptionBase1()
Dim tbl As Variant
Dim lig%, col%
'--- Un tableau à une dimension constitué de 3 tableaux à une dimension
'--- eux-mêmes constitués d'un nombre divers d'éléments de divers types ---
tbl = Array( _
  Array("a", "b", "c", "d"), _
  Array("e", "f", "g"), _
  Array(1, 2, 3, 25 / 2, "zaza", 3.14))  'notez l'expression mathématique 25/2 qui donnera 12.5
For lig = LBound(tbl) To UBound(tbl)
  For col = LBound(tbl(lig)) To UBound(tbl(lig))
    Cells(lig + 1, col + 1 + 12) = tbl(lig)(col) 'ligne réceptrice = lig+1 , colonne réceptrice = col+1 (+ l'écart offset de 12)
  Next col
Next lig
End Sub

Sub ArrayEmboités2_SansOptionBase1()
Dim tbl As Variant
Dim lig%, col%
'--- Un tableau à une dimension constitué de 3 tableaux à une dimension
'--- eux-mêmes constitués d'un nombre divers d'éléments de divers types ---
tbl = Array( _
  Array("a", "b", "c", "d"), _
  Array("e", "f", "g"), _
  Array(1, 2, 3, 25 / 2, "zaza", 3.14))  'notez l'expression mathématique 25/2 qui donnera 12.5
  
'--- énumère les 3 éléments de tbl qui sont des tableaux ---
For lig = LBound(tbl) To UBound(tbl)  'équivalent à 0 To 2
  '--- énumère les éléments des 3 éléments (tableaux) de tbl ---
  For col = LBound(tbl(lig)) To UBound(tbl(lig))  'se lit LBound(tbl(0)) To UBound(tbl(0)) quand lig=0
                                                  'se lit LBound(tbl(1)) To UBound(tbl(1)) quand lig=0
                                                  'se lit LBound(tbl(2)) To UBound(tbl(2)) quand lig=0
  
  '--- si lig=0 et col=0 alors on lit  Cells(0 + 1, 0 + 1 + 12) = tbl(0)(0)
  '--- si lig=0 et col=1 alors on lit  Cells(0 + 1, 1 + 1 + 12) = tbl(0)(1)
  '--- etc
  
  
  '--- tbl(0)(1) signifie 1er élément de tbl (donc le tableau Array("a", "b", "c", "d")) et le second élément de Array("a", "b", "c", "d") soit "b"
  '--- tbl(1)(0) signifie second élément de tbl (donc le tableau Array("e", "f", "g")) et le 1er élément de Array("e", "f", "g") soit "e"
  '--- etc
  
    Cells(lig + 1, col + 1 + 12) = tbl(lig)(col) 'ligne réceptrice = lig+1 , colonne réceptrice = col+1 (+ l'écart offset de 12)
  Next col
Next lig
End Sub

'###############
'On veut créer les titres d'un tableau Excel dans lequel on aurait les mois de l'année
'en colonnes de C à N, les régions en A, les commerciaux en B
Sub exempleUtilisation()
Dim S As Worksheet
Dim tbl As Variant
Dim lig&, col&
Set S = Sheets.Add
tbl = Array( _
  Array("Janvier", "Février", "Mars", "Avril", "Mai", "Juin", "Juillet", "Août", "Septembre", "Octobre", "Novembre", "Décembre"), _
  Array("André", "Bernard", "Claude", "Daniel", "Etienne", "Fernand", "Gaston", "Hector", "Isidore", "Jacques"), _
  Array("Nord", , "Est", , , "Sud", , "Ouest", , "Centre"))
For col& = LBound(tbl(0)) To UBound(tbl(0)) 'les mois
  S.Cells(1, col& + 3) = tbl(0)(col&)
Next col&
For lig& = LBound(tbl(1)) To UBound(tbl(1))
  S.Cells(lig& + 2, 1) = tbl(2)(lig&)  'les régions
  S.Cells(lig& + 2, 2) = tbl(1)(lig&)  'les commerciaux
Next lig&
End Sub