XL 2010 Boucle trie sur colonne sans entete

Sub Tri()
Dim r As Range
Set r = Intersect(ActiveSheet.UsedRange, Rows("18:" & Rows.Count))
If r Is Nothing Then Exit Sub
For Each r In r.Columns
  r.Sort r, xlAscending, Header:=xlNo
Next
End Sub

Sub Tri()
Dim r As Range
Set r = Intersect(ActiveSheet.UsedRange, Rows("18:" & Rows.Count))
If r Is Nothing Then Exit Sub
If r.Row > 18 Then Rows(18).Resize(r.Row - 18).Delete
For Each r In r.Columns
  r.Sort r, xlAscending, Header:=xlNo
Next
End Sub

Sub Tri()
Dim r As Range
Set r = Intersect(Me.UsedRange, Rows("18:" & Rows.Count))
If r Is Nothing Then Exit Sub
If r.Row > 18 Then Rows(18).Resize(r.Row - 18).Delete
For Each r In r.Columns
  r.Sort r, xlAscending, Header:=xlNo
Next
End Sub

Sub Tri()
Dim r As Range
With ActiveSheet
  Set r = Intersect(.UsedRange, .Rows("18:" & .Rows.Count))
  If r Is Nothing Then Exit Sub
  If r.Row > 18 Then .Rows(18).Resize(r.Row - 18).Delete
End With
For Each r In r.Columns
  r.Sort r, xlAscending, Header:=xlNo
Next
End Sub