Sub FileCopyX()
Dim NbCopy As Integer
Dim FileToCopy As Variant
Dim FileName As String
Dim i As Integer
FileToCopy = Application.GetOpenFilename("Excel File (*.xls), *.xls")
If FileToCopy <> False Then
NbCopy = Application.InputBox("Nombre de Copies", "CopyX", Type:=1)
For i = 1 To NbCopy
FileCopy FileToCopy, Left(FileToCopy, Len(FileToCopy) - 4) & "_" & Format(i, "00") & ".xls"
Next i
End If
End Sub