Sub SupFeuil()
Dim Nom As String
Nom = InputBox("Test")
If Nom <> "" Then
If TestFeuil(Nom) = True Then
Application.DisplayAlerts = False
Sheets(Nom).Delete
Application.DisplayAlerts = True
Else
MsgBox "La feuille n'existe pas"
Exit Sub
End If
End If
End Sub