Public Sub Trier()
With Sheets("calcul").Range("b2:j" & Cells(Rows.Count, "b").End(xlUp).Row)
.Sort key1:=.Columns(1), order1:=xlAscending, _
key2:=.Columns(6), order2:=xlAscending, _
key3:=.Columns(3), order3:=xlAscending, _
Header:=xlYes, MatchCase:=False, Orientation:=xlTopToBottom
Application.Goto Sheets("calcul").Range("b1")
End With
End Sub