salut Paolo, le forum
dans l'hypothèse ou ta feuille de base se nomme 'test'
essaye ce code a mettre dans un module
Sub Macro5()
Dim x, y As Byte
x = InputBox('combien de feuilles')
For y = 1 To x
Sheets('test').Select
Sheets('test').Copy After:=Sheets(1)
Sheets('test (2)').Select
Sheets('test (2)').Name = 'Test' & x
x = x - 1
Next
End Sub
JC