Copie et Renommer Onglet mais sans les boutons de commandes

Bonjour, étant novice dans la création de macro VBA, j'ai commencé un code qui me permet de copie un onglet à l'identique de mon model et de le renommer, ainsi que de le protéger et de retourner ensuite sur l'onglet model.

Mais j'aimerais que lorsque je crée ma copie à partir du model, et bien que le bouton de ma macro ne soit pas copier sur mon nouvel onglet. Et là je n'y arrive pas.

Merci à vous pour votre aide.

Bonjour,

à tester,

Sub Historiser()
    Dim nom
    nom = Format(Day(ThisWorkbook.Worksheets("MODEL_FICHE_INCIDENT").Cells(3, 5).Value), "00") + "_FI"
    Application.ScreenUpdating = False
    On Error Resume Next
    Worksheets(nom).Activate
    Application.DisplayAlerts = True
    If Err.Number <> 0 Then
        Worksheets("MODEL_FICHE_INCIDENT").Copy before:=Worksheets(Worksheets.Count)
        ActiveSheet.Name = nom
        ActiveSheet.Shapes("Bouton 1").Delete  '<---------------- ici
        ActiveSheet.protect DrawingObjects:=True, Contents:=True, Scenarios:=True
        ActiveSheet.EnableSelection = xlNoSelection
        Sheets("MODEL_FICHE_INCIDENT").Select
    End If
End Sub

Au top, c'est exactement ce que je cherchais

Encore merci