Toutes les lignes sont vide alors supprimer la feuille

Bonjour ,

je souhaite un Macro qui test la feuille : ( Feuille1 ) dans une plage de lignes ( de la ligne 40 à la ligne 150 ) , si toutes les lignes sont vide alors supprimer la feuille : ( Feuille1 ) et si au moins une ligne existe ne rien faire . Merci

Feuille1 est le nom de ta feuille ou alors la feuille excel numero 1?

oui son nom et Feuille1

c'est bon je suis arrivé à ça et ça fonctionne bien :

Sub test()
With Sheets("Feuille1")
    If Application.CountA(.[40:150]) = 0 Then
        Application.DisplayAlerts = False
        .Delete
        Application.DisplayAlerts = True
    End If
End With
End Sub

Sub suprr()
dim i, j, dercol as long
For i = 40 To 150
    dercol = Cells(i, Cells.Columns.Count).End(xlToLeft).Column
    For j = 1 To dercol
        If Sheets("Feuille1").Cells(i, j).Value <> "" Then Exit For
    Next j
Next i

If i < 150 Then Sheets("Feuille1").Delete
End Sub