Supprimer ligne si une cellule vaut 0

Bonjour,

Mon problème est le suivant. J'ai un tableau comme indiqué dans le fichier test. Je souhaite que lorsque une cellule comprise entre E3:E11 vaut 0, la ligne correspondante soit supprimer. Je souhaite faire cela via une macro qui me permettent dans les paramètres de choisir la feuille de calcul ou sera effectué cette opération. En effet, cette fonctions sera applique dans plusieurs feuille de mon fichier final.

Merci a vous,

Bonjour,

La procédure de suppression :

Option Explicit

Sub SupprSiZero(FeuilleName As String)
Dim i As Integer
    With Worksheets(FeuilleName)
        For i = 11 To 3 Step -1
            If .Cells(i, 5).Value = 0 Then
                .Rows(i).Delete
            End If
        Next
    End With
End Sub

Pour lancer cette procédure :

Sub LanceMacroSuppr()
    SupprSiZero "Type d'allumage" 'ICI "Type d'allumage" est le nom de la feuille à traiter
End Sub

Bonjour,

Merci pour votre aide mais votre macro supprime l'intégralité des lignes de mon tableau même si il la valeur est differente de 0..

1- Le fichier transmis ne contient aucune valeur en colonne E. Est-ce le fichier utilisé? Si oui, ce n'est pas la colonne E (5) qu'il faut considérer, mais D (4),

2- cette ligne de code scrute la colonne E (5) : If .Cells(i, 5).Value = 0 Then

bonjour,

olalalal etourderie de ma part... Votre fonction fonctionne à merveille et je vous en remercie,

Bonne journée