Création de tableau à partir d'une cellule

Bonjour,

Je reçois régulièrement des données sous le format "quantite x reference" dans un format bloc-notes. Je voudrais pouvoir coller ce texte de plusieurs références dans une cellule et ressortir un tableau propre avec les trois informations scindées, de forme "quantite / x / reference". Je joins un fichier dans lequel j'ai fait une ébauche, mais le code est passablement moche et utilisable jusqu'à un certain nombre de données. Serait-il possible d'automatiser ça et surtout sans limite de données ?

Bonjour à tous,

Et....

Une proposition via Power Query, nativement intégré à votre version Excel :

Remarque : Il serait judicieux, me semble-t-il, de lire directement votre fichier source.

Bonjour JFL,

Merci pour votre réponse ! Je n'avais en effet pas du tout pensé utiliser Query.

Bonjour à vous deux,

Pour en rester à la demande de départ (et avec tout le respect dû à Power Query ), une proposition par macro (le "texte" étant en D2, au départ, comme dans l'exemple) :

Sub Test()
Dim tab2()
[D5].CurrentRegion.ClearContents
tablo = Split([D2], " ")
For lig = 1 To UBound(tablo)
    ReDim Preserve tab2(2, x)
    tab2(0, x) = tablo(lig)
    tab2(1, x) = tablo(lig + 1)
    tab2(2, x) = tablo(lig + 2)
    x = x + 1
    lig = lig + 2
Next lig
[D5].Resize(x, 3) = tablo
End Sub