Salut,

Sub Copie()
Dim i, z
z = InputBox("Nombre de copies ", "Copie")
For i = 1 To z
Sheets("Valeur").Copy After:=Sheets(i)
ActiveSheet.Name = "Position " & i
Next i
End Sub
Et voilà...
A+