Création d'un fichier csv

Bonjour à tous débutant sur Excel je rencontre un problème. Je dois créer un fichier CSV pour importer dans un ERP à partir d'un tableau. Le tableau contient une référence de produit avec la référence et la quantité de tous ces composants pour ca fabrication sur la même ligne. Mais mon fichier csv doit contenir qu'un seul composant par ligne avec la référence du produit concernés. voici un exemple. Merci de votre aide.

bonsoir,

une proposition

Sub aargh()
    Set ws1 = Sheets("tab actuel") ' à adapter éventuellement
    Set ws2 = Sheets("csv") ' à adapter éventuellement
    dlws1 = ws1.Cells(Rows.Count, 1).End(xlUp).Row 'dernière ligne ws1
    ws2.Cells.Clear 'efface contenu ws2
    k = 1 'première ligne ws2
    ws2.Cells(1, 1).Resize(1, 3) = Split("ref produits,QTS,REF COMPOSANT", ",") 'titre ws2
    For i = 5 To dlws1 'on parcourt les lignes de ws1
        For j = 2 To ws1.Cells(i, 1).End(xlToRight).Column Step 2 'on parcourt les colonnes de WS1
            k = k + 1 'incrémente n° de ligne ws2
            ws2.Cells(k, 1) = ws1.Cells(i, 1) 'ref produit
            ws2.Cells(k, 2) = ws1.Cells(i, j) 'qts
            ws2.Cells(k, 3) = ws1.Cells(i, j + 1) 'ref composant
        Next j
    Next i
End Sub

Bonjour et bienvenue,

Une autre proposition réalisée avec Récupérer et transformer (Power Query).

Cdlt.

Magnifique , c'est exactement ce que je recherchais un très grand merci à vous deux h2so4 & Jean-Eric.

Grace à vous j'ai pu générer les 5500 lignes de mon fichier csv en 1 clic.