[macro] Supprimer>dupliquer>renommer un onglet

' Attention : Le classeur doit au moins contenir une feuille visible
' Donc dans l'ordre :
'1- Dupliquer la feuille EC(0) qui prend le nom de EC(2) puisque EC(1) existe.
'2- rendre visible cette feuille EC(2)
'3- Supprimer la feuille EC(1)
'4- Renommer EC(2) en EC(1)
' Donc bien conserver cet ordre d'execution.
Sub SupprimerCopierRenommer()
' Demande de confirmation
Confirmation = MsgBox("Etes vous sûr de vouloir réinitialiser cette feuille ?", vbOKCancel, "Demande de confirmation")
' Si Annuler, on sort
If Confirmation = vbCancel Then Exit Sub
' On fige l'écran et on inhibe les alertes
Application.ScreenUpdating = False
Application.DisplayAlerts = False
' On duplique EC(0), elle s'appelera EC(2)
Worksheets("EC(0)").Copy After:=Sheets(Worksheets.Count)
' On la rend visible
Worksheets("EC(2)").Visible = True
' On selectionne EC(1)
Worksheets("EC(1)").Activate
' On supprime EC(1)
ActiveSheet.Delete
' On renomme EC(2) en EC(1)
Worksheets("EC(2)").Name = "EC(1)"
End Sub

Sub Reset()
    Dim Name_OLD As String
    Dim Msg, Style, Title, Help, Ctxt, Response, MyString
    
    Name_OLD = ActiveSheet.Name 'sauvegarde l'ancien nom
    
Msg = "Confirmez-vous la réinitialisation ? Les données saisies sur cet onglet seront perdues."    ' Define message.
Style = vbYesNo + vbCritical + vbDefaultButton2    ' Define buttons.
Title = "Demande de confirmation"    ' Define title.
Help = "DEMO.HLP"    ' Define Help file.
Ctxt = 1000    ' Define topic context.
        ' Display message.
Response = MsgBox(Msg, Style, Title, Help, Ctxt)

If Response = vbYes Then    ' User chose Yes.
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False

    ActiveSheet.Delete 'supprime l'onglet
    Worksheets("EC (0)").Visible = True 'affiche l'onglet vierge
    Worksheets("EC (0)").Copy After:=Worksheets("EC (0)") 'copie l'ongelt vierge
    
    'ActiveSheet.Visible = True
    ActiveSheet.Name = Name_OLD 'renomme le nouvel onglet
    
  Worksheets("EC (0)").Visible = False 'masque l'onglet vierge
   
Else    ' User chose No.
    MyString = "Réinitialisation annulée"    ' Perform some action.
End If

       With ActiveSheet
               .EnableAutoFilter = True
               .EnableOutlining = True
               .Protect Contents:=True, UserInterfaceOnly:=True, AllowFormattingCells:=True, AllowInsertingRows:=True, AllowDeletingRows:=True, AllowFormattingColumns:=True, AllowFormattingRows:=True
       End With
'Application.ScreenUpdating = True
End Sub