Suppression lignes en fonction d'une valeur (résultat d'une formule)

Bonjour à tous,

Je souhaite pour mon projet supprimer les lignes d'un tableau (taille pouvant varier jusqu'à 100 lignes) en fonction de la valeur d'une colonne lorsque celle-ci égale 0.

Cette valeur 0 résulte d'une formule...

Merci d'avance de votre aide.

Cordialement

Bonjour

Un essai à tester. Te convient-il ?

Option Explicit

Dim fe As Worksheet, tablo, tabloR()
Dim i&, j&, ln&

Sub SupprimerLinges()

    Set fe = Sheets("E")
    tablo = fe.Range("A1").CurrentRegion
    ReDim tabloR(1 To UBound(tablo, 1), 1 To UBound(tablo, 2))

    ln = 0
    For i = 2 To UBound(tablo, 1)
        If tablo(i, 4) <> 0 Then
            For j = 1 To UBound(tablo, 2)
                tabloR(ln + 1, j) = tablo(i, j)
            Next j
            ln = ln + 1
        End If
    Next i
    fe.Range("A1").CurrentRegion.Offset(1, 0).ClearContents
    fe.Range("A2").Resize(ln, UBound(tablo, 2)) = tabloR
    fe.Activate
End Sub

Bye !