Article Associé / Remplacement

Bonjour,

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

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

Feuille 2:
1, 2, 3, 4 , A, B, C, D sont des référence d'article.

Parfois un article peut être associé a 1 ou + de 100 articles.

Document de départ:

et en cliquant sur sur le bouton développé, les colonne A et B se remplisse et dans la colonne C la lettre "A" doit apparaitre a chaque fois.

résultat:

Merci d'avance

Nicolas

Bonjour

Feuille 2 : Essayez avec ce code

Sub test()
Dim dlg As Byte, i As Byte, j As Byte
Dim ref As String

With ActiveSheet
    dlg = .Range("A" & Rows.Count).End(xlUp).Row
    If dlg = 1 Then dlg = 2
    For i = 2 To 5
        ref = .Range("F" & i).Value
        For j = 2 To 5
            .Cells(dlg, 1) = .Range("E" & j).Value
            .Cells(dlg, 2) = .Range("F" & j).Value
            .Cells(dlg, 3) = ref
            dlg = dlg + 1
        Next j
        dlg = dlg + 1
    Next i
End With
End Sub

Je vous conseille de remplacer "Activesheet" par le nom de votre feuille 2 --> Sheets("nom de votre feuille 2")

Cordialement