Sub retenir()
List = Array(dimanche, lundi, mardi, mercredi, jeudi, vendredi, samedi)
Set t = Range(("a4"), Range("a4").End(xlToRight))
v = t.Count
MsgBox (v)
For i = 0 To v
MsgBox (Cells(4, i + 1))
If Cells(4, i + 1) = "dimanche" Then
Cells(4, i + 1).Interior.Color = vbRed
End If
MsgBox Cells(4, i + 1).Address
Next
End Sub