Bonjour,
Sub dupliquer()
Dim datas, lig As Long, i As Long
datas = [A1].Resize(Cells(Rows.Count, 1).End(xlUp).Row, 2)
lig = 1 + UBound(datas)
For i = 1 To [E1].Value - 1
Cells(lig, 1).Resize(UBound(datas), 2) = datas
lig = lig + UBound(datas)
Next
End Sub
eric