Sub masqueligne()
Application.ScreenUpdating = False
With Sheets("Livraison")
For i = .Range("A" & Rows.Count).End(xlUp).Row To 1 Step -1
If .Cells(i, "BM") = 0 Then .Cells(i, "BM").EntireRow.Hidden = True
Next i
End With
Application.ScreenUpdating = True
End Sub