let
Source = Excel.CurrentWorkbook(){[Name="Tableau242"]}[Content],
cols = {{"DATE", "ID transaction", "Type de transaction"}} & {{"Montant", "Compte"}},
fx = (x as record, y as list) as table =>
Table.FromRows(List.Split(List.RemoveItems(List.RemoveFirstN(Record.ToList(x),3), {0,null}),2), y),
Process = Table.AddColumn(Source, "x", each fx(_, cols{1})),
Result = Table.SelectColumns(Table.ExpandTableColumn(Process,"x", cols{1}),
List.Union({cols{0}, List.Reverse(cols{1})}))
in
Result