Dupliquer une ligne

Bonjour,

J'ai besoin de vos aides pour un code VBA qui permet de dupliquer les lignes grâce à une valeur d'une colonne.

exemple en fichier en pj.

Merci

Bonjour

Un essai à tester. Te convient-il ?

Option Explicit

Dim tablo, tabloR()
Dim i&, k&, n&

Sub Dupliquer()

    Range("G1").CurrentRegion.Offset(1, 0).ClearContents
    tablo = Range("A1").CurrentRegion
    k = 0
    For i = 2 To UBound(tablo, 1)
        For n = 0 To tablo(i, 2) - 1
            ReDim Preserve tabloR(1 To 2, 1 To k + 1 + n)
            tabloR(1, 1 + k + n) = tablo(i, 1)
            tabloR(2, 1 + k + n) = tablo(i, 2)
        Next n
        k = k + n
    Next i
    Range("G2").Resize(UBound(tabloR, 2), 2) = Application.Transpose(tabloR)
End Sub

Bye !