With Application: .EnableEvents = False: .ScreenUpdating = False: End With
j = fc.[B518].End(xlUp).Row
fc.Select
fc.Unprotect ("abc")
Rows("3:" & j).Sort Key1:=Range("B3"), Order1:=xlAscending, Key2:=Range("D3") _
, Order2:=xlAscending, Key3:=Range("E3"), Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2 _
:=xlSortNormal
Range("A3").Select
ActiveSheet.Protect ("abc"), DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFiltering:=True
With Application: .EnableEvents = True: .ScreenUpdating = True: End With
… suite de la macro