let
Source = Excel.CurrentWorkbook(){[[COLOR=rgb(184, 49, 47)]D1:J8[/COLOR]]}[Content],
#"Index ajouté" = Table.AddIndexColumn(Source, "Index", 0, 1, Int64.Type),
#"Type modifié" = Table.TransformColumnTypes(#"Index ajouté",{{"Column1", type any}, {"Column2", type any}, {"Column3", Int64.Type}, {"Column4", type any}, {"Column5", type any}, {"Column6", type any}, {"Column7", Int64.Type}}),
#"En-têtes promus" = Table.PromoteHeaders(#"Type modifié", [PromoteAllScalars=true]),
#"Type modifié1" = Table.TransformColumnTypes(#"En-têtes promus",{{"1", type text}, {"2", type text}, {"3", Int64.Type}, {"4", type text}, {"5", type text}, {"6", type text}, {"7", Int64.Type}}),
#"Rempli vers le bas" = Table.FillDown(#"Type modifié1",{"1", "2", "3", "4", "5"}),
#"Fractionner la colonne par délimiteur4" = Table.ExpandListColumn(Table.TransformColumns(#"Rempli vers le bas", {{"2", Splitter.SplitTextByDelimiter(" ", QuoteStyle.Csv), let itemType = (type nullable text) meta [Serialized.Text = true] in type {itemType}}}), "2"),
#"Fractionner la colonne par délimiteur" = Table.ExpandListColumn(Table.TransformColumns(#"Fractionner la colonne par délimiteur4", {{"4", Splitter.SplitTextByDelimiter(" ", QuoteStyle.Csv), let itemType = (type nullable text) meta [Serialized.Text = true] in type {itemType}}}), "4"),
#"Fractionner la colonne par délimiteur1" = Table.ExpandListColumn(Table.TransformColumns(#"Fractionner la colonne par délimiteur", {{"4", Splitter.SplitTextByDelimiter("#(lf)", QuoteStyle.Csv), let itemType = (type nullable text) meta [Serialized.Text = true] in type {itemType}}}), "4"),
#"Fractionner la colonne par délimiteur2" = Table.ExpandListColumn(Table.TransformColumns(#"Fractionner la colonne par délimiteur1", {{"5", Splitter.SplitTextByDelimiter(" ", QuoteStyle.Csv), let itemType = (type nullable text) meta [Serialized.Text = true] in type {itemType}}}), "5"),
#"Fractionner la colonne par délimiteur3" = Table.ExpandListColumn(Table.TransformColumns(#"Fractionner la colonne par délimiteur2", {{"6", Splitter.SplitTextByDelimiter(" ", QuoteStyle.Csv), let itemType = (type nullable text) meta [Serialized.Text = true] in type {itemType}}}), "6"),
#"Lignes triées" = Table.Sort(#"Fractionner la colonne par délimiteur3",{{"0", Order.Ascending}, {"2", Order.Ascending},{"5", Order.Ascending}, {"6", Order.Ascending}, {"4", Order.Ascending}}),
#"Colonnes supprimées" = Table.RemoveColumns(#"Lignes triées",{"0"})
in
#"Colonnes supprimées"