let
Source = Excel.CurrentWorkbook(){[Name="Tableau1"]}[Content],
#"Fractionner la colonne par délimiteur" = Table.ExpandListColumn(Table.TransformColumns(Source, {{"Produits", Splitter.SplitTextByDelimiter("#(lf)", QuoteStyle.Csv), let itemType = (type nullable text) meta [Serialized.Text = true] in type {itemType}}}), "Produits"),
#"Fractionner la colonne par délimiteur1" = Table.SplitColumn(#"Fractionner la colonne par délimiteur", "Produits", Splitter.SplitTextByDelimiter("
#"Espaces supprimés" = Table.TransformColumns(#"Fractionner la colonne par délimiteur1",{{"Produits.1", Text.Trim, type text}}),
#"Type modifié" = Table.TransformColumnTypes(#"Espaces supprimés",{{"Produits.2", Int64.Type}}),
#"Lignes filtrées" = Table.SelectRows(#"Type modifié", each not Text.StartsWith([Produits.1], "PAGE")),
#"Colonnes renommées" = Table.RenameColumns(#"Lignes filtrées",{{"Produits.1", "Produits"}, {"Produits.2", "Nombre"}})
in
#"Colonnes renommées"