Supprimer la dernière feuille

Salut le forum,

je ne trouve pas la façon de supprimer la dernière feuille. Son index est inconnu puisque je en peux déterminer combien il y aura de feuilles qui la précèdent.

J'ai essayé un code du genre

Worksheets(Worksheets.count).Delete

mais ça ne fonctionne pas.

Merci pour votre aide.

Bonjour

De cette façon peut être

Sub essai()
Application.DisplayAlerts = False
sup = Sheets.Count
Sheets(sup).Delete
Application.DisplayAlerts = True

End Sub

...Pourtant la ligne citée est valide : Ya juste à rajouter un "Application.DisplayAlerts = False" pour que ça marche sans problème.

Sub test()
Application.DisplayAlerts = False
Worksheets(Worksheets.Count).Delete
End Sub

A+

Avec le DisplayAlert = False, ça fonctionne très bien.

Merci les gars pour votre aide.