Sub Dupliquer_feuille()
'**** Dupliquer la feuille active
ActiveSheet.Copy before:=Sheets("RENDEMENT CHANTIER")
'*********************************************************************
' Renome la feuille
'*********************************************************************
' Oblige l'utilisateur d'entrer un nom
Dim NomFeuil As Variant
reponse:
NomFeuil = InputBox("Veuillez définir le nouveu nom de l'onglet")
If NomFeuil = "" Then GoTo reponse
ActiveSheet.Name = NomFeuil
End Sub