Comment supprimer dans un classeur toutes les feuilles vierges et masquer toutes les lignes et les colonnes inutilisées sur la feuille active ?

sub supsupFlu()
 Dim Sht As Worksheet
 Set aSh = ActiveSheet
 
 Application.ScreenUpdating = False
  For Each Sht In ActiveWorkbook.Worksheets
    Sht.Activate
    ActiveSheet.UsedRange
    Selection.SpecialCells(xlLastCell).Select
    Application.DisplayAlerts = False
    If ActiveCell.Address = "$1" And IsEmpty(ActiveCell) Then
      Sht.Delete
    Else
      ActiveCell.Offset(1, 1).Select
      Range(Selection, Selection.End(xlDown)).EntireRow.Hidden = True
      Range(Selection, Selection.End(xlToRight)).EntireColumn.Hidden =
 True
    End If
  Next Sht
 end sub