Range("B4:AG300,AI4:AN300").Select
Range("AI4").Activate
Selection.FormatConditions.Delete
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=SI($B4<>"""",ET(($D4<>$D3),MOD(LIGNE(),2)=1))"
Selection.FormatConditions(1).Interior.ColorIndex = 15
With Selection.FormatConditions(1).Borders(xlTop)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=SI($B4<>"""",MOD(LIGNE(),2)=1)"
Selection.FormatConditions(2).Interior.ColorIndex = 15
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=ET($D4<>$D3)"
With Selection.FormatConditions(3).Borders(xlTop)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
Range("B4").Select