Sub dupliquer()
Dim source As Range
Application.ScreenUpdating = False
Sheets("Final").Columns("a:b").ClearContents
With Sheets("Début")
Set source = .Range("a1:b" & .Cells(.Rows.Count, "a").End(xlUp).Row)
source.Copy Sheets("Final").Range("a1").Resize(source.Rows.Count * .Range("e1"))
Application.CutCopyMode = False
End With
Application.Goto Sheets("Final").Range("a1"), True
End Sub