Copie une feuille avec son code et la renommer dans le meme classeur

Sub ajoutonglet()
Dim deb&, nlig&
Application.EnableEvents = False 'facultatif, pour éviter de masquer la feuille source
ActiveSheet.Copy After:=Sheets(Sheets.Count)
Application.EnableEvents = True
With ActiveSheet
    On Error Resume Next
    .Name = .[BU8]
    With ThisWorkbook.VBProject.VBComponents(.CodeName).CodeModule
        deb = .ProcStartLine("Worksheet_Deactivate", 0)
        nlig = .ProcCountLines("Worksheet_Deactivate", 0)
        .DeleteLines deb, nlig 'supprime le code de la macro Worksheet_Deactivate
    End With
End With
End Sub