Bonjour, si first est la cellule active tu peux écrire
vlign est le nombre de ligne de ta zone
redéfinir au besoin le sort key 1 qui est le critère de tri
Range("first", Range("first").Offset(Vlign, 7)).Select
Selection.Sort Key1:=Range("C3"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom