Sub Duplication()
Dim LigneDuplic As Long
Dim NbCopie As Long
LigneDuplic = 2
For i = 2 To Range("A65536").End(xlUp).Row
Sheets("Lignes").Select
NbCopie = Cells(i, 7)
Range(Cells(i, 1), Cells(i, 1)).Select
Selection.Copy
Sheets("Duplication").Select
Range(Cells(LigneDuplic, 1), Cells(LigneDuplic + NbCopie - 1, 1)).Select
ActiveSheet.Paste
LigneDuplic = LigneDuplic + NbCopie
Next i
End Sub