Dupliquer feuille avec changement de nom et incrementation

Bonjour,

J'ai créer un template que j'ai besoin de dupliquer avec un bouton et de changer le nom.

Dans le fichier excel 2 feuilles :

La premiere Accueil : ou il y à le boutton pour dupliquer la feuille template

La seconde Template

Le code fonctionne, il y à bien la création d'une nouvelle feuille avec un nouveau nom.

Le problème est situé dans la numérotation voila ce qui ce passe à chaque création de duplication :

Test3, Test4, Test5 ...

Ce que je voudrais : Test1, Test2, Test3 ...

J'ai l'impression qu'il comptabilise les 2 feuilles déja présente dans le fichier.

Voila le code pour dupliquer la feuille :

"

Sub duplicate()

n = Sheets.Count

Sheets("Template").Copy After:=Sheets(n)

ActiveSheet.Name = "Test" & Application.Sheets.Count

End Sub

"

Merci pour votre aide

Salut zic04,

l'impression? C'est même une certitude!

Private Sub duplicate()
'
Sheets("Template").Copy After:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = "Test" & Sheets.Count - 2
'
End Sub

A+

Merci pour la réponse

problème réglé je vais ouvrir une autre demande ^^