Excel VBA tableau

Set MA_PLAGE = BD_N°CTRL.Range("A1:B" & NB_LIGNE)
Set MA_PLAGE = Application.Union(MA_PLAGE, BD_N°CTRL.Range("H1:H" & NB_LIGNE))
TAB_BD_N°CTRL = MA_PLAGE

TAB_BD_N°CTRL = Application.Union(BD_N°CTRL.Range("A1:B" & NB_LIGNE), BD_N°CTRL.Range("H1:H" & NB_LIGNE))

 With BD_N°CTRL
 TAB_BD_N°CTRL = Application.Union(.Range(.Cells(1, 1), _
 .Cells(NB_LIGNE, 2)), .Range(.Cells(1, 8), .Cells(NB_LIGNE, 8)))
 End With

Dim TAB_BD_N°CTRL

Sub main()
Dim Ma_Feuille As Worksheet
Dim Ma_Plage As Range
Dim TABLEAU
Set Ma_Feuille = ThisWorkbook.Worksheets("Feuil1")
Set Ma_Plage = Application.Union(Ma_Feuille.Range("A1:B" & 10), Ma_Feuille.Range("E1:E" & 10))
TABLEAU = Ma_Plage
End Sub

Set Mon_Range = Application.Union(Ma_Feuille.Range("A1:A3"), Ma_Feuille.Range("B1:B3"))
TABL = Mon_Range

Set Mon_Range = Application.Union(Ma_Feuille.Range("A1:A3"), Ma_Feuille.Range("C1:C3"))
TABL = Mon_Range

Dim ws As Worksheet, plage As Range
Set ws = ActiveWorkbook.ActiveSheet
With ws
    Set plage = .Range("A:B")
    plage.Select
    Set plage = Union(plage, .Range("H:H"))
    plage.Select
End With

Sub main2()
Dim ws As Worksheet, plage As Range
Set ws = ActiveWorkbook.ActiveSheet
Dim tabl
With ws
    Set plage = .Range("A:B")
    plage.Select
    Set plage = Union(plage, .Range("H:H"))
    plage.Select
    tabl = plage
End With
End Sub

Sub main()
Dim Ma_Feuille As Worksheet
Set Ma_Feuille = ThisWorkbook.Worksheets("Feuil1")

'Je veux unir la plage A1:B10 avec C1:C10 et entrer les valeurs dans un tableau
'Le tableau s'appelle TAB_Plage
'Les deux plages sont contiguës
'dans l'explorateur de variable TAB_Plage possède bien 3 dimensions

Dim TAB_Plage
Dim Ma_Plage As Range
Set Ma_Plage = Application.Union(Ma_Feuille.Range("A1:B10"), _
Ma_Feuille.Range("C1:C10"))
TAB_Plage = Ma_Plage

'Je veux unir la plage A1:B10 avec D1:D10 et entrer les valeurs dans un tableau
'Le tableau s'appelle TAB_Range
'Les deux plages **ne sont pas contiguës**
'dans l'explorateur de variable TAB_Plage possède seulement 2 dimensions
' Quelle est la limite de la méthode UNION?????

Dim TAB_Range
Dim Mon_Range As Range
Set Mon_Range = Application.Union(Ma_Feuille.Range("A1:B10"), _
Ma_Feuille.Range("D1:D10"))
TAB_Range = Mon_Range

End Sub

Option Explicit
Sub test()
Dim t() As Variant, i As Long
ReDim t(0 To Range("A65536").End(xlUp).Row, 0 To 2)
For i = LBound(t) To UBound(t)
    t(i, 0) = Cells(i + 1, 1).Value
    t(i, 1) = Cells(i + 1, 2).Value
    t(i, 2) = Cells(i + 1, 8).Value
Next i
End Sub
Sub test2()
Dim t() As Variant, x As Long, i As Long
x = Range("A65536").End(xlUp).Row
t = Range("A1:B" & x).Value
ReDim Preserve t(1 To x, 1 To 3)
For i = 1 To x
    t(i, 3) = Cells(i, 8).Value
Next i
End Sub