Sub TrierParClub()
Application.ScreenUpdating = False
Dim lastLine As Long
lastLine = Range("B" & Rows.Count).End(xlUp).Row
ActiveWorkbook.Worksheets("Inscriptions").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Inscriptions").Sort.SortFields.Add Key:=Range( _
"D5:D1100"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
ActiveWorkbook.Worksheets("Inscriptions").Sort.SortFields.Add Key:=Range( _
"K5:K1100"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("Inscriptions").Sort
.SetRange Range("B4:M900"lastLine)
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range("D6").Select
Application.ScreenUpdating = True
End Sub