Supprimer un Onglet si il existe

Option Explicit
Sub test()
Dim flag As String
flag = "NomOnglet"
On Error Resume Next
Sheets(flag).Delete
On Error GoTo 0
End Sub

Sub efface()
flag = "Feuil1"
For Each sh In Sheets
 On Error Resume Next
   Application.DisplayAlerts = False
     If sh.Name = flag Then sh.Delete
   Application.DisplayAlerts = True
 On Error GoTo 0
Next
End Sub

Sub efface()
  'Flag étant initialisée
  On Error Resume Next
  Application.DisplayAlerts = 0
  Sheets(Flag).Delete
  Application.DisplayAlerts = -1
  On Error GoTo 0
End Sub