Suppression de lignes si les cellules de la sélection >0

Bonsoir,

Je voudrais savoir si quelqu'un connais un code qui permet de supprimer les lignes d'un tableau lorsque les cellules de la sélection j6 à j1093 et supérieur à zéro.

Le but étant de faire ressortir les ruptures dans un fichier de stock.

Merci de vos réponses et bonne soirée.

Bonsoir,

A adapter.

Option Explicit
Public Sub test()
Dim ws As Worksheet
Dim i As Long
    Application.ScreenUpdating = False
    Set ws = Worksheets("Feuil2")
    With ws
        For i = 1093 To 6 Step -1
            MsgBox .Cells(i, 10)
            If .Cells(i, 10) > 0 Then Rows(i).Delete
        Next
    End With
    Set ws = Nothing
End Sub