Public Sub DelLigne_BC_BB()
Dim i As Long
Dim Ligne_Max As Long
Dim Trouve As Range
Dim Quantité As Long
Set Trouve = Range("A:A").Find("Nos prix s'entendent Hors Taxes", Lookat:=xlPart)
Ligne_Max = Trouve.Row - 1
Application.ScreenUpdating = False
For i = Ligne_Max To 28 Step -1
If IsEmpty(Worksheets("Feuil2").Cells(i, 4)) = True Then Worksheets("Feuil2").Rows(i).Delete
If Worksheets("Feuil2").Cells(i, 1) = "Réf." And Quantité = 0 Then
Worksheets("Feuil2").Rows(i).Delete
Quantité = 0
Else
Quantité = 0
End If
If Worksheets("Feuil2").Cells(i, 4) <> "Qté" Then Quantité = Quantité + CLng(Worksheets("Feuil2").Cells(i, 4))
Next i
Application.ScreenUpdating = True
End Sub