Sub TriSurColonne1()
Dim deb As Range, pas%
Set deb = [E5] '1ère cellule, à adapter
pas = 3 'pas à adapter
Application.ScreenUpdating = False
While deb <> ""
With Intersect(deb.CurrentRegion, Rows(deb.Row & ":" & Rows.Count))
.Sort .Columns(1), xlAscending, Header:=xlYes
End With
Set deb = deb.Offset(, pas)
Wend
End Sub
Sub TriSurColonne2()
Dim deb As Range, pas%
Set deb = [E5] '1ère cellule, à adapter
pas = 3 'pas à adapter
Application.ScreenUpdating = False
While deb <> ""
With Intersect(deb.CurrentRegion, Rows(deb.Row & ":" & Rows.Count))
.Sort .Columns(2), xlAscending, Header:=xlYes
End With
Set deb = deb.Offset(, pas)
Wend
End Sub