Private Sub Worksheet_Change(ByVal Target As Range)
'Macro par DAN pour roudrick
'Fil : http://www.excel-downloads.com/forum/67178-couleurs-par-mois.html
'Macro pour mise en couleurs des mois en colonne A
Dim Rangemois As Range
Dim Lig As Variant, Col As Variant
Application.ScreenUpdating = False
Set Rangemois = Range("A1", Range("A65536").End(xlUp))
Col = ActiveSheet.UsedRange.Tablo.Columns.Count
For Each c In Rangemois
Set Lig = Range(Cells(c.Row, 1), Cells(c.Row, Col))
Select Case c
Case Is = "Janvier"
Lig.Interior.ColorIndex = 38 'couleur rose
Case Is = "Février"
Lig.Interior.ColorIndex = 6 'couleur jaune
Case Is = "Mars"
Lig.Interior.ColorIndex = 5
...
...
End Select
Next c
Application.ScreenUpdating = True
End Sub