Copie une page et InputBox pour le nom

Bonjour,
Dans Excel 2010, en VBA, je cherche a copier un onglet, puis a avoir un "inputbox" qui me demande le nouveau nom de l'onglet, puis la nouvelle page serait copie après ou au début. Et si possible ce nouvel onglet n'aurais pas de couleur (ou sinon en changeant le code je pourrais lui mettre une couleur). Ceci avec un Commandebutton.
Pour l'instant j'ai un code qui ressemble a ceci :

Private Sub CommandButton2_Click()

Sheets("IMP R").Select
'Sheets("IMP R").Copy After:=Sheets("IMP R")

Dim Rename_Sheet As String

Rename_Sheet = InputBox("Nouveau Nom :", "Titre", "Agent #")
If Rename_Sheet <> "" Then MsgBox Rename_Sheet
End If

Sheets("IMP R").Select
Sheets("IMP R").Copy After:=Sheets("IMP R")
Sheets("IMP R").Name = Rename_Sheet
With ActiveWorkbook.Sheets(("IMP R").Tab
.ColorIndex = xlAutomatic
.TintAndShade = 0
End With

End Sub

Mais il en résulate surtout que je réussi a copier la page et en creez une autre, mais la page original a changer de nom ou "IMP R (2)". Bref, c'est pas génial

Quelqu'un aurais des suggestions ?

MErci