Sub CréationFeuilleEtSuppressionMacroEtBouton()
Sheets("Avant").Copy after:=Sheets(Sheets.Count)
With ActiveSheet
'Eventuellement lui donner un nom en décommentant la ligne ci-dessous
'.Name ="MaNouvelleFeuille"
With .Parent.VBProject.vbcomponents(ActiveSheet.CodeName).codemodule
.deleteLines .ProcStartLine("Bouton_Saisie_Click", 0), .ProcCountLines("Bouton_Saisie_Click", 0)
End With
'Supprimer le bouton de la macro
.OLEObjects("Saisie").Delete
End With
End Sub