Power Query Découper une colonne en plusieurs colonnes

let
    Source = Excel.CurrentWorkbook(){[Name="Tab_ListeOrigine"]}[Content],
    #"Fractionner la colonne par délimiteur" = Table.SplitColumn(Source, "CODE", Splitter.SplitTextByDelimiter("-", QuoteStyle.Csv), {"Num", "P"}),
    #"Fractionner la colonne par position" = Table.SplitColumn(#"Fractionner la colonne par délimiteur", "P", Splitter.SplitTextByPositions({0, 2}, false), {"P", "N"}),
    #"Colonne dynamique" = Table.Pivot(#"Fractionner la colonne par position", List.Distinct(#"Fractionner la colonne par position"[P]), "P", "TEXTE"),
    AjColCode = Table.AddColumn(#"Colonne dynamique", "Code", each [Num] & "#" & [N]),
    #"Autres colonnes supprimées" = Table.SelectColumns(AjColCode,{"Code", "FR", "US", "AL"})
in
    #"Autres colonnes supprimées"

Sub TestMAJ()
Dim dlig As Object, dcol As Object, liste$, tablo, i&, x$, L%, y$, formule$
Set dlig = CreateObject("Scripting.Dictionary")
Set dcol = CreateObject("Scripting.Dictionary")
liste = "Tab_ListeOrigine"
tablo = Evaluate(liste).Resize(, 2) 'matrice, plus rapide
For i = 1 To UBound(tablo)
    x = tablo(i, 1)
    If x <> "" Then
        L = Len(CStr(Val(x)))
        y = Mid(x, L + 2, 2)
        dlig(Left(x, L) & "#" & Mid(x, L + 4)) = ""
        dcol(y) = ""
    End If
Next
'---restitution---
Application.ScreenUpdating = False
With [Tab_Result].ListObject 'tableau structuré
    If Not .DataBodyRange Is Nothing Then .DataBodyRange.Delete xlUp 'RAZ
    If .ListColumns.Count > 1 Then .Range.Columns(2).Resize(, .ListColumns.Count - 1).Delete xlToLeft
    If dcol.Count Then .Range(1, 2).Resize(, dcol.Count) = dcol.keys 'en-têtes
    If dlig.Count Then .Range(2, 1).Resize(dlig.Count) = Application.Transpose(dlig.keys) 'Transpose est limitée à 65536 lignes
    formule = "=IFERROR(VLOOKUP(SUBSTITUTE([@CODE],""#"",""-""&" & .Range(1, 2).Address(1, 0) & ")," & liste & ",2,0),"""")"
    If dlig.Count * dcol.Count Then .Range(2, 2).Resize(dlig.Count, dcol.Count) = formule
End With
End Sub

=LET(t;Tab_ListeOrigine;
c_1;CHOISIRCOLS(t;1);
pre;TEXTE.AVANT(c_1;"-");
lg;GAUCHE(TEXTE.APRES(c_1;"-");2);
suf;STXT(TEXTE.APRES(c_1;"-");3;9);
code;pre&"#"&suf;
PIVOTER.PAR(code;lg;CHOISIRCOLS(t;2);TABLEAU.EN.TEXTE;;0;;0))