Sub Test()
With ActiveWorkbook.Sheets("Feuil1")
lg = .Range("N65536").End(xlUp).Row
'On parcourt toute la colonne N, de 65536 à 2, avec un pas de -1
For i = lg To 2 Step -1
'Si la cellule (i,14) est égale à 0€, alors on supprime la ligne i
If .Cells(i, 14).Value = 0 Then .Rows(i).Delete
Next i
End With
End Sub
Bien sur que une macro existe, je suis novice en la matière, mais essaye un truc de ce genre là !
Cordialement.