Sub Tri()
Application.ScreenUpdating = False
With Worksheets("SuiviMagSFPortes" )
.Activate
.AutoFilterMode = False
End With
Range("A1:H3499" ).Sort Key1:=Range("E2" ), Order1:=xlDescending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal
Worksheets("SuiviMagSFPortes" ).Range("A1:H1" ).AutoFilter
Application.ScreenUpdating = True
End Sub |