Sub ajoutonglet()
Dim Nom As String
On Error GoTo GestionErreur 'début du code
Nom = InputBox("Ne pas saisir de caractère interdit dans un nom d'onglet. si vous saisissez un nom déjà utilisé l'onglet sera renommé Test (2): ", "NOM", "Test")
Sheets("Test").Copy After:=Worksheets("Test")
ActiveSheet.Name = Nom
'Fin du code
GestionErreur:
End Sub