Sub Colorier()
'mapomme
Dim bleu, blanc, couleur, tablo, i&, xrg As Range, sh As String
sh = ActiveSheet.Name
bleu = RGB(145, 200, 250)
blanc = RGB(255, 255, 255)
couleur = bleu
With Sheets(sh)
tablo = .[ColonneDates].Value
Set xrg = .[ColonneDates].Rows(1)
xrg.Interior.Color = couleur
For i = 2 To UBound(tablo)
Set xrg = xrg.Offset(1)
If Year(tablo(i, 1)) <> Year(tablo(i - 1, 1)) Then couleur = IIf(couleur = bleu, blanc, bleu)
xrg.Interior.Color = couleur
Next i
End With
End Sub