Insérer feuille

Worksheets("NomFeuille").Delete

Worksheets(NomFeuille).Delete

Sub inserer_feuille()
'
' inserer une nouvelle feuille et la renomer
Dim NomFeuille As String
Dim Sh As Variant
Dim feuilleExiste As Boolean
NomFeuille = Sheets("Controle").Range("D1")
For Each Sh In Worksheets
    If Sh.Name = NomFeuille Then
        MsgBox "la feuille " & Sh.Name & " existe"
        If MsgBox("Voulez vous recréer cette feuille ? Les données seront perdues.", vbOKCancel, "Attention") = vbOK Then
            Application.DisplayAlerts = False
            Worksheets(NomFeuille).Delete
            Application.DisplayAlerts = True
        Else
            MsgBox ("ok")
            Exit Sub
        End If
        Exit For
    End If
Next
Sheets.Add.Move After:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = NomFeuille
End Sub

Sub inserer_feuille()
'
' inserer une nouvelle feuille et la renomer

    Dim NomFeuille As String, Sh As Variant, feuilleExiste As Boolean, NewFeuille As String
    
    NomFeuille = Sheets("Controle").Range("D1")

    For Each Sh In Worksheets
        If Sh.Name = NomFeuille Then
            MsgBox "la feuille " & Sh.Name & " existe"
            feuilleExiste = True
        End If
    Next
        If feuilleExiste = True Then
        NewFeuille = MsgBox("Voulez vous recréer cette feuille ? Les données deront perdues.", vbOKCancel + vbCritical, "Attention")
        If NewFeuille = vbCancel Then Exit Sub
            If NewFeuille = vbOK Then
                Application.DisplayAlerts = False
                    Sheets(NomFeuille).Delete
                    Sheets.Add.Move After:=Sheets(Sheets.Count)
                    Sheets(Sheets.Count).Name = NomFeuille
                Application.DisplayAlerts = True
            End If
        End If
            If feuilleExiste = False Then
                Sheets.Add.Move After:=Sheets(Sheets.Count)
                Sheets(Sheets.Count).Name = NomFeuille
            End If
End Sub