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

Sub ajoutonglet()
Dim Nom As String
     On Error GoTo GestionErreur     'début du code

Nom = ActiveSheet.Range("bu8")
ActiveSheet.Copy After:=Worksheets(Worksheets.Count)
ActiveSheet.Name = Nom

GestionErreur:
 
End Sub

Private Sub Worksheet_Deactivate()
Me.Visible = xlSheetVeryHidden
End Sub

Private Sub Worksheet_Deactivate()
Me.Visible = xlSheetVeryHidden
End Sub

Sub ajoutonglet()
Dim Nom As String
     On Error GoTo GestionErreur     'début du code

Nom = ActiveSheet.Range("bu8")
ActiveSheet.Copy After:=Worksheets(Worksheets.Count)
ActiveSheet.Name = Nom

GestionErreur:
 
End Sub

Sub ajoutonglet()
Dim F As Worksheet
Set F = ActiveSheet
With Sheets.Add(After:=Sheets(Sheets.Count))
    On Error Resume Next
    .Name = F.[BU8]
    F.Cells.Copy .[A1] 'copier-coller
    .UsedRange = F.UsedRange.Value 'facultatif, si l'on veut supprimer les formules
End With
End Sub

Public ws1 As String
Public ws2 As String


Private Sub Worksheet_Activate()
ws1 = Sheets("Feuil1").Name
ws2 = ActiveSheet.Name
End Sub

Private Sub Worksheet_Deactivate()
If ws1 = ws2 Then Sheets("Feuil1").Visible = xlSheetVeryHidden
End Sub

Option Explicit
'Plus rapide job
Private Sub ToggleButton1_Click() ' le 1er code'
Protect "charlie 2005 Anvers", UserInterfaceOnly:=True

If ToggleButton1 Then
    [BB20:BB154].AutoFilter 1, "<>M" 'filtre automatique
    ToggleButton1.Caption = "Réinitialiser  l'attachement"
Else
    If FilterMode Then ShowAllData
    ToggleButton1.Caption = "Afficher l'attachement"
End If

End Sub


Private Sub Worksheet_Deactivate()' le 2eme code'
Me.Visible = xlSheetVeryHidden
End Sub

Sub ajoutonglet()
Dim F As Worksheet
Set F = ActiveSheet
On Error Resume Next
With Sheets.Add(After:=Sheets(Sheets.Count))
    .Name = F.[BU8]
    F.Cells.Copy .[A1] 'copier-coller
    .UsedRange = F.UsedRange.Value 'facultatif, si l'on veut supprimer les formules
    With .[A1].MergeArea 'si la cellule est fusionnée
        .Copy .Cells 'allège la mémoire
        .Merge
        .Select
    End With
End With
End Sub

Sub ajoutonglet()
Dim Nom As String
     On Error GoTo GestionErreur     'début du code

Nom = ActiveSheet.Range("bu8")
ActiveSheet.Copy After:=Worksheets(Worksheets.Count)
ActiveSheet.Name = Nom

GestionErreur:

End Sub