Supprimer lignes suivantes / lignes précédentes

Bonjour

Comment écrire en VBA svp : sur la feuille1, de la ligne 3 à 1000, si une cellule est vide en colonne D, supprimer les 4 lignes précédentes + les 25 lignes suivantes + la ligne concernée.

Merci d'avance

Bonjour,

Essayer :

Sub Supprimer()
    Dim i%, iAv%, iAp%, n%
    n = 1000
    With Worksheets("Feuil1")
        For i = 1000 To 3 Step -1
            If IsEmpty(.Cells(i, 4)) Then
                iAv = IIf(i - 4 >= 3, i - 4, 3)
                iAp = IIf(i + 25 <= n, i + 25, n)
                .Rows(iAv & ":" & iAp).Delete
                n = n - 30: i = i - 4
            End If
        Next i
    End With
End Sub

Cordialement.

bonsoir

Sub SUP()

Dim cell As Range, SH As Worksheet

Set SH = Sheets("feuille1")

With SH

For Each cell In .Range("D3:D1000")

If cell = "" Then .Range(cell.Offset(, -3), cell.Offset(, 25)) = ""

Next

End With

End Sub

désolé M : MFerrand

Je n'ai pas vue votre réponse

Bonjour

Merci à vous deux

Je ne manquerai pas de tester vos deux propositions tout à l'heure au boulot.

Bonne journée