Microsoft 365 Cherche a dupliquer des lignes en fonction d'un nombre indépendant sans macro

let
    Source = Excel.CurrentWorkbook(){[Name="Tableau1"]}[Content],
    #"Type modifié" = Table.TransformColumnTypes(Source,{{"index", Int64.Type}, {"A", Int64.Type}, {"B", Int64.Type}, {"C", Int64.Type}}),
    #"Supprimer le tableau croisé dynamique des autres colonnes" = Table.UnpivotOtherColumns(#"Type modifié", {"index"}, "Attribut", "Valeur"),
    #"Personnalisée ajoutée" = Table.AddColumn(#"Supprimer le tableau croisé dynamique des autres colonnes", "Personnalisé", each List.Repeat({""}, [Valeur])),
    #"Personnalisé développé" = Table.ExpandListColumn(#"Personnalisée ajoutée", "Personnalisé"),
    #"Colonne fusionnée insérée" = Table.AddColumn(#"Personnalisé développé", "Fusionné", each Text.Combine({[Attribut], Text.From([index], "fr-FR")}), type text),
    #"Colonnes supprimées" = Table.RemoveColumns(#"Colonne fusionnée insérée",{"Personnalisé", "Valeur", "index"}),
    #"Lignes groupées" = Table.Group(#"Colonnes supprimées", {"Attribut"}, {{"Nombre", each _, type table [Attribut=text, Fusionné=text]}}),
    #"Table transposée" = Table.Transpose(#"Lignes groupées")
in
    #"Table transposée"

Private Sub Worksheet_Change(ByVal Target As Range)
Dim source As Range, nlig&, dest As Range, col%, a(), n&, lig&, i&
Set source = [H1].CurrentRegion
nlig = source.Rows.Count
Set dest = [B1]
Application.ScreenUpdating = False
Application.EnableEvents = False 'désactive les évènements
dest.CurrentRegion.Offset(1, 1).ClearContents 'RAZ
For col = 2 To source.Columns.Count
    Erase a
    n = 0
    For lig = 3 To nlig
        For i = 1 To Int(Val(source(lig, col)))
            ReDim Preserve a(n)
            a(n) = source(2, col) & source(lig, 1)
            n = n + 1
    Next i, lig
    '---restitution---
    dest(2, col - 1) = source(2, col)
    If n Then dest(3, col - 1).Resize(n) = Application.Transpose(a) 'Transpose est limitée à à65536 lignes
Next col
Application.EnableEvents = True 'réactive les évènements
End Sub

= Table.Group(#"Colonnes supprimées", {"T"}, {{"Tabl",each Table.AddIndexColumn(_,"ID",1,1),type table}})

=FILTRE.XML("<t><c>"&LET(c;JOINDRE.TEXTE("";VRAI;REPT(B$2&tb[Item]&"</c><c>";INDEX(tb;;EQUIV(B$2;tb[#En-têtes];0))));GAUCHE(c;NBCAR(c)-3))&"</t>";"//c")