Cells.Interior.Color = xlNone
'derniere colonne ---> dercol
dercol = Range("IV1").End(xlToLeft).Column
For i = 2 To Range("A65535").End(xlUp).Row
Select Case Cells(i, 1).Value
Case "Creuse", "Indre", "Loiret", "Haute vienne", "Cher"
Range(Cells(i, 1), Cells(i, dercol)).Interior.Color = 65535
End Select
Next i