Copy feuille

Bonjour le forum
j'ai un petit soucis avec la macro suivante:
Sub InsertCopyFeuille()
'Déclaration des variables
Dim Msg As String, Title As String, Default As String
Dim MyValue As Variant

Msg = "Quelle dénomination souhaitez vous donner à la nouvelle feuille ?"
Title = "DENOMINATION DE LA FEUILLE"
Default = ""
MyValue = InputBox("Quelle dénomination souhaitez vous donner à la nouvelle feuille ?", "APPELLATION DE LA FEUILLE", "")
If MyValue = "" Then Exit Sub
Sheets("Modele").Copy after:=Worksheets(Worksheets.Count)
ActiveSheet.Name = MyValue
End Sub

si je l'execute elle me recopie la feuille"modele" avec un nouvo nom moi je souhaite recopier la feuille active car sur celle ci il y a des infos en plus
d'avance je vous remercie tous pour les conseils que vous allez m'apporter
qui me seront d'un grand service
Dark