Trier uniquement une sélection d'un tableau

Bonjour le forum,

Je souhaite automatiser un tri en fonction d'une sélection qui sera amené à être différente chaque jour.

Malgré mes recherches je ne trouve rien, ci joint un exemple qui je l'espère sera assez explicite.

Merci pour votre aide

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

Merci beaucoup ça fonctionne

De rien, bon vent.