Sub supprimer()
Dim Mess As String
Application.DisplayAlerts = False
If ActiveSheet.Name <> "modele" And ActiveSheet.Name <> "Total amort." And ActiveSheet.Name <> "Feuil2" Then
Mess = MsgBox("êtes vous sur de vouloir supprimer la feuille " & ActiveSheet.Name & "?", vbYesNo + vbInformation, "Supression")
If Mess = vbNo Then Exit Sub
ActiveSheet.Delete
End If
Application.DisplayAlerts= true
End Sub