Supprimer une feuille active sauf si

Bonjour à tous,

je suis à la recherche d'une macro qui me permette de supprimer la feuille active, sauf si elle s'appelle "L.1".

Si on active la macro dans la feuille "L.1", j'aimerai avoir un message box qui dit "Impossible de supprimer L.1".

Voila, je précise que je suis novice sur VBA.

Merci

Bonjour

Essaie ça :

Sub SupprimerLaFeuilleActive()
    If ActiveSheet.Name <> "L.1" Then
        Application.DisplayAlerts = False
        ActiveSheet.Delete
    Else
        MsgBox "Impossible de supprimer L.1", 16
    End If
End Sub

Bye !

Bonjour

Edit Bonjour Gmb

un exemple :

Sub sup()
If ActiveSheet.Name <> "L.1" Then
Application.DisplayAlerts = False
ActiveSheet.Delete
Else
MsgBox "suppression de la feuille L.1 impossible "
End If
End Sub

Fred

Merci je vais essayer ca

Les codes sont nickel, le seul soucis c'est que j'aimerai avoir un msgbox qui confirme si oui ou non on veut supprimer la feuille active. Seul condition est la feuille "L.1" qui doit rester impossible à éliminer.

MERCI!

Bonjour à tous

Essaie ça :

Sub SupprimerLaFeuilleActive()
    Dim rep
    If ActiveSheet.Name <> "L.1" Then
        rep = MsgBox("Vous allez supprimer la feuille active ''" & ActiveSheet.Name & Chr(13) & Chr(13) & _
                "Confirmez-vous ?", 20)
        If rep = 7 Then Exit Sub
        Application.DisplayAlerts = False
        ActiveSheet.Delete
    Else
        MsgBox "Impossible de supprimer L.1", 16
    End If
End Sub

Bye !

MERCI!!