Sub supprimme_zero_II()
[B]Application.Calculation = xlCalculationManual
Application.ScreenUpdating = False[/B]
With Range("B1:B" & [B65536].End(xlUp).Row)
.AutoFilter 1, "=0"
.SpecialCells(xlCellTypeVisible).EntireRow.Delete
End With
[B]Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic[/B]
End Sub