Macro qui copie une feuille tout en la renommant

Bonjour,

Je ne maîtrise pas trop VBA et je voudrais écrire un code qui copie ma feuille "tcd" après la feuille modèle tout en permettant à l'utilisateur de renommer cette nouvelle feuille.

J'ai réussi à arriver à ça mais pour le nom je n'y arrive pas.

Sub duplic()

Worksheets("tcd").Copy After:=Worksheets("tcd")

Set MySheet = ActiveSheet

With MySheet

.Name = Worksheets("Base données")

End With

End Sub

Merci d'avance pour l'aide que vous pourriez me fournir. Ci-joint le fichier excel

Bonjour,

Ton fichier en retour

A+

Impossible de télécharger le fichier "erreur réseau"

Pourrais-tu m'envoyer uniquement le code s'il te plaît ?

Code à placer dans un module standard

Sub dupliquer()
Dim NomFeuille As String
Dim Reponse As Integer
    Application.DisplayAlerts = False
    Worksheets("tcd").Copy After:=Worksheets("tcd")
    Application.DisplayAlerts = True
    Reponse = MsgBox("La feuille " & ActiveSheet.Name & " a été créée." & Chr(10) & "Voulez-vous renommer cette nouvelle feuille ?", vbYesNo)
    If Reponse = vbYes Then
        NomFeuille = InputBox("Veuillez indiquer le nouveau nom", "SAISIE DU NOM DE FEUILLE", ActiveSheet.Name)
        If NomFeuille <> "" Then ActiveSheet.Name = NomFeuille
    End If
End Sub

A+

Merci beaucoup ca marche parfaitement !