let
Source = Excel.CurrentWorkbook(){[Name="Tableau1"]}[Content],
UnPivot = Table.UnpivotOtherColumns(Source, {"ID"}, "Attribut", "Valeur"),
Split = Table.SplitColumn(UnPivot, "Attribut", Splitter.SplitTextByCharacterTransition((c) => not List.Contains({"0".."9"}, c), {"0".."9"}), {"Attribut.1", "Attribut.2"}),
Pivot = Table.Pivot(Split, List.Distinct(Split[Attribut.1]), "Attribut.1", "Valeur"),
SupprCol = Table.RemoveColumns(Pivot,{"Attribut.2"})
in
SupprCol