Creer un tableau de combinaison

       tabres(1, UBound(tabres, 2)) = tablo(n, 1)
       tabres(2, UBound(tabres, 2)) = tablo(n, 2)
       tabres(3, UBound(tabres, 2)) = tablo(n, 3)
        tabres(4, UBound(tabres, 2)) = tablo1(m, 1)

Sub Test()
    Tablo = Range("A2:B5")
    Tablo1 = Range("A8:A14")
    ReDim Tabres(1 To 4, 0)
    For n = LBound(Tablo, 1) To UBound(Tablo, 1)
        For m = n + 1 To UBound(Tablo1, 1)
            Tabres(1, UBound(Tabres, 2)) = Tablo(n, 1)
            Tabres(2, UBound(Tabres, 2)) = Tablo(n, 2)
            Tabres(3, UBound(Tabres, 2)) = Tablo1(m, 1)
            Tabres(4, UBound(Tabres, 2)) = Tablo1(m, 1)
            ReDim Preserve Tabres(1 To 4, UBound(Tabres, 2) + 1)
        Next
    Next
    Range("E4").Resize(UBound(Tabres, 2), 3) = Application.Transpose(Tabres)
End Sub