Sub purgfeuilles()
Dim feuille As Worksheet
For Each feuille In Sheets
If Application.CountA(feuille.Cells) = 0 Then
bouton = vbYesNo + vbDefaultButton2
reponse = MsgBox("supprimer la feuille", bouton)
If reponse = vbYes Then feuille.Delete
End If
Next feuille
End Sub