Sub Supprimer_Produits()
ActiveSheet.Unprotect Password:="1012"
Dim derlig&, i&
With ActiveCell
If .Interior.ColorIndex = 19 Then
derlig = Range("B" & Rows.Count).End(xlUp).Row
While .Offset(i + 1).Interior.ColorIndex <> 19 And .Row + i < derlig
i = i + 1
Wend
.Resize(i + 1).Delete xlUp
End If
End With
ActiveSheet.Protect Password:="1012"
End Sub