Sub tri_temp()
Set sortRange = Feuil5.range("I1:R6")
sortRange.Sort key1:=Feuil5.range("R1"), order1:=xlAscending, dataoption1:=xlSortNormal, _
key2:=Feuil5.range("P1"), order2:=xlAscending, dataoption2:=xlSortNormal, Header:=xlYes, _
key3:=Feuil5.range("Q1"), order3:=xlDescending, dataoption3:=xlSortNormal, Header:=xlYes
End Sub