Sub tritableau()
Dim li As Integer 'déclare la variable li
'sélectionne la première ligne (B10)du tableau jusqu'à la dernière
li = ActiveSheet.Range("B65536").End(xlUp).Row
Rows(Cells(li, 2), Cells(li, 7)).Select
'effectue le tri
Selection.Sort Key1:=Range("B11"), Order1:=xlAscending, Key2:=Range("C11" _
), Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2 _
:=xlSortNormal
End Sub