Supprimer des feuilles vides

Bonjour à tous !

Je souhaiterai savoir comment faire pour pouvoir supprimer automatiquement des feuilles qui ne contiennent aucunes valeurs. Si cela est possible bien entendu...

Merci à vous par avance !

Bonne journée

Bonjour,

Un exemple ci-dessous.

Cdlt.

Public Sub supprimerFeuillesVides()
Dim Ws As Worksheet
    Application.ScreenUpdating = False
    For Each Ws In ActiveWorkbook.Worksheets
        If Ws.UsedRange.Cells.Address = "$A$1" And _
           IsEmpty(Ws.Range("A1")) And Ws.Shapes.Count = 0 Then
            Application.DisplayAlerts = False
            If ActiveWorkbook.Worksheets.Count > 1 Then Ws.Delete
            Application.DisplayAlerts = True
        End If
    Next Ws
    Application.ScreenUpdating = True
End Sub