Power Query Combinaison de lignes en arbres à branches variables et à noeuds fixes

let
    /*Define a list function. This is usually done in a separate query.*/
    fn_Subsets = (L as list) as list =>
    let
        N = List.Count(L),
        Subsets =
            List.Transform(
                {0..Number.Power(2, N)-1},
                (i) => List.Transform(
                            {0..N-1},
                            (j) => if Number.Mod(Number.IntegerDivide(i, Number.Power(2, j)), 2) = 1
                                    then L{j}
                                    else null
                        )
            )
    in
        Subsets,

    /*Define sample dataset. Replace with your own data.*/
    Source = Table.FromRows(Json.Document(Binary.Decompress(Binary.FromText("Rcy7DcAgFEPRXVxTBPIvSQjkMwJ6+68RIyG5uJJP41oRPRwi8zDXebAgnmwVE9vEi+1ibleDXJr7d+C+2Sg+bBJfNosfW2D2Aw==", BinaryEncoding.Base64), Compression.Deflate)), let _t = ((type nullable text) meta [Serialized.Text = true]) in type table [ID = _t, Company = _t, Price = _t]),
    SampleData = Table.TransformColumnTypes(Source,{{"ID", type text}, {"Company", type text}, {"Price", Int64.Type}}),
    #"Dernières lignes supprimées" = Table.RemoveLastN(SampleData,9),
   
    /*Logic applying the subsets function and aggregating the results.*/
    #"Grouped Rows" = Table.Group(#"Dernières lignes supprimées", {"ID"}, {{"SubsetList", each fn_Subsets([Company]), type list}}),
    #"Expanded Count" = Table.ExpandListColumn(#"Grouped Rows", "SubsetList"),
    #"Added Custom" = Table.AddColumn(#"Expanded Count", "Company", each Text.Combine([SubsetList], ","), type text),
    #"Filtered Rows" = Table.SelectRows(#"Added Custom", each ([Company] <> "")),
    #"Expanded SubsetList" = Table.ExpandListColumn(#"Filtered Rows", "SubsetList"),
    #"Merged Queries" = Table.NestedJoin(#"Expanded SubsetList", {"ID", "SubsetList"}, #"Dernières lignes supprimées", {"ID", "Company"}, "Expanded SubsetList", JoinKind.LeftOuter),
    #"Expanded Expanded SubsetList" = Table.ExpandTableColumn(#"Merged Queries", "Expanded SubsetList", {"Price"}, {"Price"}),
    #"Aggregate Rows" = Table.Group(#"Expanded Expanded SubsetList", {"ID", "Company"}, {{"Sum_Price", each List.Sum([Price]), type nullable number}, {"No of Supplier", each Table.RowCount(_), Int64.Type}}),
    #"Sorted Rows" = Table.Sort(#"Aggregate Rows",{{"ID", Order.Ascending}, {"No of Supplier", Order.Ascending}, {"Company", Order.Ascending}})
in
    #"Sorted Rows"

let
    fnBuildCombinaisons = (listGains as list, nbLevels as number) as list =>
        let
            listLevels = {1 .. nbLevels},
            TableLevels = Table.FromRows({List.Transform(listLevels, each listGains)}, List.Transform(listLevels, Text.From)),
            ExpandLevels = List.Accumulate(listLevels, TableLevels, (state, current) => Table.ExpandListColumn(state, Text.From(current))),
            ChangeTypes = Table.TransformColumns(ExpandLevels, {}, Text.From),
            AddColumnResult = Table.AddColumn(ChangeTypes, "Result", each Text.Combine(Record.ToList(_), "-"))
        in
            AddColumnResult[Result],
    testFnBuildCombinaisons = fnBuildCombinaisons({0 .. 2}, 3),
    
    Source = Table.FromRows(Json.Document(Binary.Decompress(Binary.FromText("i4421DEyiNUBUsYgykjHEEJBeWYGsbEA", BinaryEncoding.Base64), Compression.Deflate)), type table [Casino = text, Jeton = text]),
    CombiParCasino = 
        let
            GroupByCasino = Table.Group(Source, {"Casino"}, {{"Combinaisons", each Table.RowCount(_), Int64.Type}}),
            BuildCombinaisons = Table.TransformColumns(GroupByCasino,{{"Combinaisons", each fnBuildCombinaisons({0..2}, _), type list}}),
            ExpandCombinaisons = Table.ExpandListColumn(BuildCombinaisons, "Combinaisons")
        in
            Table.Buffer(ExpandCombinaisons),
    MergeCombi = Table.NestedJoin(Source, {"Casino"}, CombiParCasino, {"Casino"}, "MergeCombi", JoinKind.LeftOuter),
    DevelopCombinaisons = Table.ExpandTableColumn(MergeCombi, "MergeCombi", {"Combinaisons"}, {"Combinaisons"}),
    SortData = Table.Sort(DevelopCombinaisons,{{"Casino", Order.Ascending}, {"Combinaisons", Order.Ascending}, {"Jeton", Order.Ascending}})
in
    SortData