Dim ws As Worksheet
For Each ws In Worksheets
If ws.Name <> "poire" Then
MsgBox "Feuille non disponible"
Exit Sub
Else
Dim wss As Worksheet
Application.DisplayAlerts = False
For Each wss In Worksheets
If wss.Name <> "poire" Then If Worksheets.Count > 1 Then wss.Delete
Next wss
Application.DisplayAlerts = True
Exit For
End If
Next ws