Sub test()
Dim i As Integer
For i = 5 To Range("A65536").End(xlUp).Row
Select Case Cells(i, 1).Value & Cells(i, 2).Value
Case "bonjouraurevoir", "salutcoucou", "dodooreiller"
Range("A" & i & ":B" & i).Interior.ColorIndex = 6
Range("C" & i).Value = "*"
End Select
Next i
End Sub