Sub b()
Dim k&
For k = 1 To 8
If InStr(1, Cells(k, "A"), "Sachet") + InStr(1, Cells(k, "A"), "Flacon") + InStr(1, Cells(k, "A"), "Totale") > 0 Then
With Cells(k, "A").Resize(, 49)
.Interior.Color = RGB(141, 252, 159)
.Borders.LineStyle = 1
End With
End If
Next
End Sub