Sub purgefeuilles()

For Each feuille In ActiveWorkbook.Worksheets
If Not IsArray(feuille.UsedRange) Then
    If IsEmpty(feuille.UsedRange) Then
        Application.DisplayAlerts = False   'pour masquer alert message de excel
        rep = MsgBox(prompt:="tu veux supprimer " & feuille.Name, Buttons:=vbYesNoCancel + vbQuestion)
        If rep = vbNo Then GoTo 100
        If rep = vbCancel Then Exit Sub
        If rep = vbYes Then feuille.Delete
    End If
End If
100
Next feuille

End Sub

    Source: geocities.com/manuhoro