Sub MiseEnCouleurs()
'
Dim TabloCouleurs(4) As Long
Dim CouleurEnCours As Long
Dim LigDeb As Long, Ligfin As Long, LigEnCours As Long
Dim Debut As Long, Fin As Long
Dim DateEnCours As Long
TabloCouleurs(0) = RGB(255, 0, 0)
TabloCouleurs(1) = RGB(0, 255, 0)
TabloCouleurs(2) = RGB(0, 0, 255)
TabloCouleurs(3) = RGB(255, 255, 0)
TabloCouleurs(4) = RGB(255, 0, 255)
LigDeb = 2
Ligfin = Range("A1").End(xlDown).Row
CouleurEnCours = 0
LigEnCours = LigDeb
While LigEnCours <= Ligfin
Debut = LigEnCours
DateEnCours = Cells(LigEnCours, 1).Value
While Cells(LigEnCours, 1).Value = DateEnCours
LigEnCours = LigEnCours + 1
Wend
Fin = LigEnCours - 1
Range(Cells(Debut, 1), Cells(Fin, 14)).Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = TabloCouleurs(CouleurEnCours)
.TintAndShade = 0
.PatternTintAndShade = 0
End With
CouleurEnCours = (CouleurEnCours + 1) Mod 5
Wend
End Sub