If Not sel Is Nothing Then
Application.ScreenUpdating = False
sel.FormatConditions.Delete
sel.FormatConditions.Add xlExpression, Formula1:="=LIGNE()=2"
sel.FormatConditions(1).Interior.ColorIndex = 1 'noir
sel.FormatConditions(1).Font.ColorIndex = 3 'rouge
sel.FormatConditions(1).Font.Bold = True 'gras
sel.FormatConditions.Add xlExpression, Formula1:=True
sel.FormatConditions(2).Interior.ColorIndex = 1 'noir
sel.FormatConditions(2).Font.ColorIndex = 2 'blanc
sel.FormatConditions(2).Font.Bold = True 'gras
End If