De nombreux classeurs contiennent du ballast inutile sous la forme de feuilles de calcul vides. La macro suivante recherche dans le classeur actif les feuilles de calcul vides et les supprime.

Sub Supprimertouteslesfeuilles()
Dim i As Long
Application.DisplayAlerts = False
On Error Resume Next
For i = ActiveWorkbook.Sheets.Count to 1 Step -1
Sheets(i).Activate
If ActiveCell.SpecialCells(xlLastCell).Address = _
"$A$1" _
Then Sheets(i).Delete
Next i
Application.DisplayAlerts = True
End Sub

Vous pouvez utiliser la propriété Count, que vous appliquez à l’objet de collection Sheets, pour déterminer le nombre de feuilles de calcul dans le classeur. En fonction du nombre déterminé, vous créez votre boucle For Next. Dans la boucle, activez la feuille de calcul et vérifiez si la méthode SpecialCells avec la constante xlLastCell renvoie l’adresse de cellule A1. Dans ce cas, vous pouvez supposer qu’aucune donnée n’a été saisie dans la feuille de calcul.
Supprimez ces feuilles de calcul à l’aide de la méthode Delete.