Une proposition à tester :
Sub Tri()
Range("D6", Range("D6").End(xlDown)).Select
Range(Selection, Selection.Offset(0, 6)).Select
Range(Selection, Selection.Offset(0, -3)).Select
With ActiveSheet.Sort
.SortFields.Clear
.SortFields.Add Key:=Selection.Columns(3), Order:=xlAscending
.SetRange Selection
.Apply
End With
End Sub