let
Source = Excel.Workbook(File.Contents("C:\Users\tdarlot\OneDrive - ANDROS\Desktop\fichier1-test.xls"), null, true),
F2 = Source{[Name="F1"]}[Data],
SupprLig = Table.Skip(F2,10),
PromoHead = Table.PromoteHeaders(SupprLig, [PromoteAllScalars=true]),
SupprVides = Table.SelectRows(PromoHead, each not List.IsEmpty(List.RemoveMatchingItems(Record.FieldValues(_), {"", null}))),
// Je pense que cette ligne n'est plus utile SupprVides
UnPivot = Table.UnpivotOtherColumns(SupprVides, {"Produit", "Jour"}, "Attribut", "Valeur"),
Filtr = Table.SelectRows(UnPivot, each ([Attribut] <> ""))
in
Filtr