Séparer une ligne en 2

Bonjour,

Est-ce possible de séparer des lignes d'un tableau en plusieurs ? Exemple:

Dans ce tableau je souhaiterais faire en sorte que les lignes A soient divisée en une ligne A_a pour le premier axe et une ligne A_b pour le deuxième axe (en fonction des coordonnées qu'on a on pourrait avoir A_a pour un axe X ou A_a pour un axe Y et de même pour A_b).

Dans ces nouvelles lignes il n'y a pas besoin de modifier les valeurs des cellules X_nom jusqu'à Poids.

Le résultat attendu correspondrait à cela:

Hello,

Une proposition PowerQuery, tu mets à jour ton tableau de gauche et tu fais clic droit sur le tableau de droite

@+

Bonjour à tous !

Une approche Power Query (donnant le résultat escompté.....) :

Merci à vous deux, cela a l'air sympa.

Est-ce que ma demande peut se faire d'une autre manière que par du PowerQuery, si je souhaite insérer le nouveau tableau et l'utiliser pour plusieurs documents (insertion du tableau dans un code VBA par exemple) ?

Hello,

Je n'avais pas fait attention à ce petit détail. Proposition amendée :

let
    Source = Excel.CurrentWorkbook(){[Name="Tableau1"]}[Content],
    Replace = Table.ReplaceValue(Source,each [Axe], each let 
Liste = if List.Count(Text.ToList([Axe])) = 1 then {} else {97..96+List.Count(Text.ToList([Axe]))},
a = List.TransformMany(Liste, (s)=> {Character.FromNumber(s)}, (s,y) => [Nom] &"_" & y ) ,
b = Text.ToList([Axe])
in List.Transform(List.Zip({a,b}), each Text.Combine(_,"|")),Replacer.ReplaceValue,{"Axe"}),

    Expand = Table.ExpandListColumn(Replace, "Axe"),
    ColSupp = Table.RemoveColumns(Expand,{"Nom"}),
    SplitColumn = Table.SplitColumn(ColSupp, "Axe", Splitter.SplitTextByDelimiter("|", QuoteStyle.Csv), {"Nom", "Axe"})
in
    SplitColumn

@Furgoz je laisse les experts VBA sur le sujet

@+