Copy feuille

[Darkv]

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

 

[arnaud]

Salut 🙂,

pour copier la feuille active, remplace

Sheets("Modele").

par

ActiveSheet.

 

[Darkv]

Slt arnaud
j'essaie de suite
Merci de ton aide
Dark

 

[Darkv]

re salut arnaud
ca marche impec
j'avais essayer activesheet mais j'avais mis un s a sheet donc ca marché pas
encore merci
Dark