[COLOR="DarkSlateGray"][B]Sub supplignes()
Dim i&
Application.Calculation = xlCalculationManual
Application.ScreenUpdating = False
For i = 750 To 16 Step -1
If IsEmpty(Cells(i, 6)) Or Cells(i, 6) = 0 Then
Rows(i).Delete
End If
Next i
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
End Sub[/B][/COLOR]