En ce cas, je te propose d'ajouter le code suivant en fin de procédure "Worksheet_Change" de la feuille "BL FACT" :
Dim oRange As Excel.Range
If Target.Column = 2 And IsDate(Target.Value) Then
Set oRange = ActiveSheet.Range(ActiveSheet.Cells(Target.Row, Target.Column), ActiveSheet.Cells(Target.Row, 8))
ColorLigne oRange
End If
et dans "module2" cette nouvelle procédure :
Sub ColorLigne(zRange As Excel.Range)
Dim lColor1 As Long, lColor2 As Long
Dim oCell As Excel.Range
'Initialisation des 2 couleurs
lColor1 = RGB(217, 225, 242)
lColor2 = RGB(255, 242, 204)
Set oCell = zRange.Cells(1, 1)
If IsDate(oCell.Value) Then
'si mois pair alors couleur1
If Month(oCell.Value) Mod 2 = 0 Then
zRange.Interior.Color = lColor1
'si mois impair alors couleur2
Else
zRange.Interior.Color = lColor2
End If
End If
'On fait le ménage
Set oCell = Nothing
End Sub