Supprimer une feuille Excel qui ne comporte une seule ligne

Bonjour,

Voici mon souci, je dois créer des feuilles Excel et parmi celles-ci se trouvent des feuilles qui ne comportent seulement une seule ligne.

Est-il possible via un code VBA de supprimer les feuilles qui ne possèdent qu'une seule ligne ? (En l'occurrence la ligne se situerait sur la 3ème ligne)

Cordialement, Romain

C'est bon je pense avoir trouvé un stratagème en faisant une condition :

If Range("A4") = "" Then

ActiveWindow.SelectedSheets.Delete

End If

Bonjour

Essaie avec ce code

Sub test()
Dim sh As Byte
Application.ScreenUpdating = True
For sh = 1 To Sheets.Count
    On Error Resume Next
    If Sheets(sh).UsedRange.Rows.Count < 2 Then
    Application.DisplayAlerts = False
    Sheets(sh).Delete
    End If
Next
Application.ScreenUpdating = False
End Sub

Si ok, clique sur le V vert à coté du bouton EDITER lors de ta réponse afin de clôturer le fil

Crdlt

ça marche parfaitement, merci !!!

Merci, Dan