Tu peux vite faire une Macro

Option Explicit

Public Sub Copy()
CopySheet "Sheet1", 99
End Sub

Private Sub CopySheet(SheetName As String, NbCopy As Integer)
Dim i As Integer
For i = 1 To NbCopy
Sheets(SheetName).Copy After:=Sheets(Sheets.Count)
Next i
End Sub