Option Explicit
Sub MeFC()
Range("E2:AB5000").Select
Selection.FormatConditions.Delete
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=SI(JOUR($C2)>JOUR($B2);(MOD($B2;1))*(E$1<=MOD($C2 ;1));E$1>=(MOD($B2;1))*(E$1<=MOD($C2;1)))"
Selection.FormatConditions(1).Interior.ColorIndex = 45
Range("A2").Select
End Sub