Bonjour Staple1600,
Merci dans un premier temps pour ton retour.
En effet avec un fichier cela serait beaucoup plus compréhensible.
Egalement voici le code que j'utilise actuellement pour dupliquer selon une variable.
Sub duplique()
Sheets(2).UsedRange.Clear
Set premier = Sheets(1).Cells(2, 1)
n = 0
While premier.Offset(n, 0) <> ""
nb = premier.Offset(n, 10)
Call copie(premier.Offset(n, 10), nb)
n = n + 1
Wend
End Sub
Sub copie(k, nb)
For n = 1 To nb
k.EntireRow.Copy Sheets(2).Range("a1")
Sheets(2).Range("a1").EntireRow.Insert
Next
End Sub