Sub test()
dim x_start As Integer
x_start = 10 'à titre d'exemple
With Worksheets("Feuil1") 'Nom feuille à adapter
With .Range(.Cells(3, x_start + 35), .Cells(.Cells.Rows.Count, x_start + 35).End(xlUp))
.Sort Key1:=.Item(2, 1), Order1:=xlAscending, Header:=True
End With
End With
End Sub