If obt_janvier.Value = True Then
ligne = Sheets("Janv").Range("A65536").End(xlUp).Row
Sheets("Janv").Select
Range("B" & ligne).Select
Selection.FormatConditions.Delete
[COLOR="Red"]For Each cell In Selection
Select Case Cells[/COLOR]
Case "Lun"
If obt_lundiM.Value = True And obt_LundiAP.Value = True Then
' appel couleurJ pour les lundis
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=OU(JOURSEM(B$5)=2)"
Selection.FormatConditions(1).Interior.ColorIndex = 45
Case "Mar"
‘instructions
Case "Mer"
‘instructions
Case "Jeu"
‘instructions
Case "ven"
‘instructions
Case "sam" And "dim"
‘instructions
End Select
Next cell
Selection.AutoFill Destination:=Range("B" & ligne & ":AF" & ligne), Type:=xlFillDefault
Range("B" & ligne & ":AE" & ligne).Select
ActiveWindow.LargeScroll ToRight:=-1
Enf if
‘[…] La même chose pour tout les mois