Test avant suppression feuille

Question

Bonjour a tous, j'ai une feuille sur laquelle j'ai créé un modele que je duplique à l'aide d'une marco sur d'autres feuilles. Sur ce Modele, j'ai créé un bouton "Suppression de la feuille" Seulement je ne veux pas que les utilisateurs puissent supprimer la feuille "Modele" à l'aide de ce bouton, j'ai alors créé un code mais il ne marche pas :

Sub supprimer()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
If Sheets("Modele").Select  Then
MsgBox ("Vous ne pouvez pas supprimer cette feuille")
Else
ActiveWindow.SelectedSheets.Delete
Range("A1").Select
End If
End Sub

Si vous avez une idée je suis preneur, merci d'avance.

maguetlolo · Answer

Peux tu joindre ton fichier pour essayer ? quelle (s) feuille veux tu supprimer? laurent Comme cela tu supprime la feuille active sauf si la feuille active est "Modele" Sub supprimer() Application.ScreenUpdating = False Application.DisplayAlerts = False If ActiveSheet.Name = "Modele" Then MsgBox ("Vous ne pouvez pas supprimer cette feuille") Else ActiveWindow.SelectedSheets.Delete Range("A1").Select End If End Sub cordialement...