Salut ,
voici un bout de code qui devrait fonctionner
Sub colonne_E_qand_zero()
Application.ScreenUpdating = False
For ligne = ActiveSheet.UsedRange.Rows.Count + ActiveSheet.UsedRange.Row To 1 Step -1
If Cells(lin, 6) = "0" Then Rows(ligne).Delete Shift:=xlUp
Next ligne
End Sub
A+
Steph