Salut,
Regarde si ca te convient,
Sub Tri()
derligne = Range("B65536").End(xlUp).Row
Range("A7:I" & derligne - 4).Select
Selection.Sort Key1:=Range("B7"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End Sub