Salut "fred"
deux petits exemples de ce qui est faisable
Sub supprimeDerVal()
Range("A65536").End(xlUp).Select
If Selection.Value <> "0" Then
Selection.EntireRow.Delete
End If
End Sub
ou
Sub supprimeDerVal()
Range("A1").End(xlDown).Select
if Selection.value<>"0" then
Selection.EntireRow.Delete
range("A1").Select
End Sub
A+++
Jean marie