Changement de nom d'une feuille ajoutée

Salut tout le monde,

comment puis-je changer le nom d'une nouvelle feuille en introduisant une variable. J'ai quelque peu copié l'idée de Thierry pour l'ajout d'une feuille par copie d'une feuille

Sub Add_Tabelle()
'
' Add_Tabelle Makro
'
Dim n As Integer, m As Integer
Dim X As Byte
Dim Name1 As String
Dim Name2 As String
'
For n = 1 To 3
X = Sheets.Count
Sheets("Template").Copy After:=Sheets(X)
m = 15 + n
Name2 = "Variante " + n
Sheets(X + 1).Name = Name2
Next n
End Sub


La création de la feuille fonctionne mais le changement de nom de feuille buggue toujours.
Merci d'avance pour votre aide
Nico