Suppression de ligne si valeur = 0

Bonjour à tous.

J'ai besoin de votre aide.

Je souhaite, grâce à une macro, supprimer des lignes dont la valeur de la troisième colonne est égale à 0.

Je joins un fichier.

J'ai essayer de créer quelque chose moi-même en utilisant delete mais je ne m'en sors pas.

Merci.

Bonsoir,

une proposition de solution

a+

Bonsoir,

autre méthode, ajoute des en-têtes

Sub SupprLigne()
Dim Plg As Range
'Macro par Claude Dubois pour "lmdr" Excel-Pratique le 8/03/10
    Set Plg = Range("a1:c" & [a65000].End(xlUp).Row)
    Range("o2") = "=$c2=0"
    Plg.AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
    Range("o1:o2"), Unique:=False
    Plg.Offset(1, 0).SpecialCells(xlCellTypeVisible).EntireRow.Delete
    Range("o2").ClearContents
    ActiveSheet.ShowAllData
End Sub

Amicalement

Claude

Merci à vous Dubois et Beuret pour vos réponses rapides.

Je fais les mettre en place et si tout se passe bien je n'oublierai de cocher la petite case qui va bien.

Cordialement

LMDR