Sub Kaneuf2()
liste = Array("K9", "K10", "K15")
For i = LBound(liste) To UBound(liste)
'MsgBox liste(i)
jour = Sheets("Dispo").Range(liste(i))
Set c = Sheets("Seville").Range("A6:W36").Find(jour, LookIn:=xlValues, lookat:=xlWhole)
If Not c Is Nothing Then
If UCase(c.Offset(0, 1)) = "STOP" Or UCase(c.Offset(0, 1)) = "RQ" Then
Sheets("Dispo").Range(liste(i)).Interior.ColorIndex = 3
Else
Sheets("Dispo").Range(liste(i)).Interior.ColorIndex = xlNone
End If
End If
Next i
End Sub