XL 2013 Multiplier les données dans la colonne BCDEF selon la quantité dans la colonne G

[lestoiles1]

Bonjour ,

J'aimerais multiplier les données dans la colonnne BCDEF selon la quantité qui se trouve dans la colonne G.

Les données sont dans la feuille "Sheet1" et le resultat que je voudrais est dans la feuille "Sheet2".

Cordialement

Lestoiles

 

[sylvanu]

Bonjour Lestoiles,
Un essai en PJ avec :

Sub DupliquerLignes()
With Sheets("Sheet2")
    .Range("A2:G10000").ClearContents
    Ligne = 2
    For L = 2 To [A10000].End(xlUp).Row
        Qté = Cells(L, "G") - 1
        .Range("A" & Ligne & ":G" & Ligne + Qté) = Range("A" & L & ":G" & L).Value
        Ligne = Ligne + Qté + 1
    Next L
    .Select
    .Columns.AutoFit
    .Range("A2:A" & .[A10000].End(xlUp).Row).Formula = "=ROW()-1"
End With
End Sub