Duplication de lignes selon la valeur d'une cellule

Bonjour,

Je possède un classeur avec ces colonnes :

Code W -- Matricule -- Code PF -- CC PF -- Quantité -- Date

Je voudrais que les valeur de chaque ligne soient dupliquées selon le nombre inscris dans la colonne quantité.

En gros sur la première ligne, je voudrais que les valeurs soient dupliquées 10 fois.

N'hésitez pas à me dire si je ne suis pas assez clair.

Je joins le fichier en question.

A+

Bonjour,

Tu peux essayer avec ce code :

Sub dupliquer()
Dim DerLig As Long, I As Long
Application.ScreenUpdating = False
With Sheets("Feuil1")
    DerLig = .Cells(Rows.Count, "E").End(xlUp).Row
    For I = DerLig To 2 Step -1
        If .Cells(I, "E").Value > 1 Then
            .Cells(I, "A").Resize(1, 6).Copy
            .Cells(I, "A").Resize(.Cells(I, "E").Value - 1, 6).Insert xlDown
        End If
    Next I
End With
Application.CutCopyMode = False
End Sub

Bon courage

Mème pas besoin de courage, le code que tu m'as donné marche impeccablement.

Merci beaucoup !