voici une procédure qui recherche l'étendue de la plage à trier :
Sub Tri()
Dim MyRange As Range, LastCel As Range
With Range("A6")
Set LastCel = Cells(.End(xlDown).Row, .End(xlToRight).Column)
End With
Set MyRange = Range("A6", LastCel)
'a toi d'adapter les critères de tri selon tes besoins
MyRange.Sort key1:=Range("A6"), Order1:=xlAscending, Header:=xlNo
End Sub