Copier - Coller pour Articles associés

Bonjour,

j'aimerai mettre en mettre en forme les colonnes de la façon suivante avec un script comment puis-je faire?

1, 2, 3, 4 sont des référence d'article. Parfois un article peut être associé a 1 ou + de 100 articles.

Merci d'avance

Bonjour,

je te propose le code suivant (avec le choix du nombre d'items en B1) :

Sub script()
Dim A As Integer ' Valeurs colonne A
Dim B As Integer ' Valeurs colonne B
Dim L As Integer ' Ligne en cours
Max = Range("B1") ' valeur max de l'itération
L = 2
For A = 1 To Max
    B = 1
    For B = 1 To Max
        If B = A Then
            B = B + 1
        End If
        Range("A" & L) = A
        Range("B" & L) = B
        L = L + 1
    Next
    L = L + 1
Next
End Sub

Merci pour le script mais j'ai pris un mauvais exemple.

Voila je pense que ca sera plus claire

Voici une nouvelle proposition feuille 2

Merci!