Erreur 1004 vba excel sur ajout d'onglet

Bonjour,
Je souhaite recopier un onglet qui est nommer test puis le nommer au choix de l'utilsateur mais à chaque fois il me répond:

Fichier introuvable c:/......

Erreur 1004

Je n'ai rien trouvé sur le net encore pour résoudre mon problème pouvez vous m'aider.
Voici mon code

Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Sheets("test").Select
Sheets("test").Copy
ActiveSheet.Name = InputBox("Entrer le nom du consultant")
End Sub

Merci d'avance