Dans un classeur, j'ai un onglet nommé 1 qui me sert de modèle. Je le copie pour créer de nouvelles feuilles. Comment nommer ces nouvelles feuilles lors de leur création en ajoutant 1 au nom (numéro) de l'onglet précédent ?

Il existe une procédure (module ThisWorkbook) déclenchée lors de la création d'une nouvelle feuille, que tu peux utiliser pour ce genre de besoin. Par exemple :

Private sub Workbook_NewSheet(ByVal Sh As Object)
 Dim x
 x = Worksheets.Count
 'le format est à adapter comme tu veux
 Sh.Name = Format(x, "000")
 'si tu veux que la copie s'effectue de gauche à droite
 Sh.Move after:=Worksheets(x)
 end sub