Sub test()
Dim i&, fin&, a&, x&, col&
With Feuil1
fin = Feuil1.Range("B" & Rows.Count).End(xlUp).Row
For i = 1 To fin
col = .Cells(i, Columns.Count).End(xlToLeft).Column
If .Cells(i, 1) = "OK" Then GoTo 1
For a = 2 To col
If .Cells(i, a).Interior.ColorIndex = 4 And .Cells(i, a) <> "" Then x = x + 1
Next a
If x = col - 1 Then .Cells(i, 1) = "OK" Else .Cells(i, 1) = "Non OK"
x = 0
1 Next i
End With
End Sub