Power Query query - calculer le taux de tva

=SI(I2="";H2/SOMME.SI.ENS($H$2:$H$21;$F$2:$F$21;$F2;$I$2:$I$21;"><");"")

let
    Source = Excel.CurrentWorkbook(){[Name="tSource"]}[Content],
    Types = Table.TransformColumnTypes(Source,{{"date", type date}, {"Euro", type number}}),
    GroupBy = Table.Group(
        Types,
        {"nume"},
        {
            {"Détails", each _, type table [jour=text, comp=text, comp1=any, date=nullable date, libe=text, nume=nullable text, Sens=text, Euro=nullable number, anal=nullable text, lett=text]},
            {"Taux", each  let tTva= List.Sum(Table.SelectRows(_, each Text.StartsWith([comp],"4"))[Euro]) in tTva/(List.Sum([Euro])-tTva)}
        }),
    Expand = Table.ExpandTableColumn(GroupBy, "Détails", List.Difference(Table.ColumnNames(Source),{"nume"})),
    ValRempl = Table.ReplaceValue(Expand,each [Taux],each if Text.StartsWith([comp],"4") then [Taux] else null,Replacer.ReplaceValue,{"Taux"}),
    RéorgCol = Table.ReorderColumns(ValRempl,Table.ColumnNames(Source)&{"Taux"})
in
    RéorgCol

let
    Source = Excel.CurrentWorkbook(){[Name="tSource"]}[Content],
    Types = Table.TransformColumnTypes(Source,{{"date", type date}, {"Euro", type number}}),
    GroupBy = Table.Group(
        Types,
        {"nume"},
        {
            {"Détails", (x)=> let tmt=List.Sum(x[Euro]), tbl=Table.AddColumn(x,"Taux", each if Text.StartsWith([comp],"4") then  [Euro]/(tmt-[Euro]) else null, Number.Type) in tbl, type table [jour=text, comp=text, comp1=any, date=nullable date, libe=text, nume=nullable text, Sens=text, Euro=nullable number, anal=nullable text, lett=text, Taux=number]}
        })[[Détails]],
    Expand = Table.ExpandTableColumn(GroupBy, "Détails", Table.ColumnNames(GroupBy[Détails]{0}))
in
    Expand