Sub Tri(LigneDébut, HauteurBloc, numCol, ordre, DecalTri)
nbcol = Cells(LigneDébut, 1).CurrentRegion.Columns.Count
Columns("A:A").Offset(0, nbcol).Insert Shift:=xlToRight
i = LigneDébut
Do While i <= [a65000].End(xlUp).Row
Cells(i, nbcol + 1).Resize(HauteurBloc, 1) = Cells(i + DecalTri, numCol)
i = i + HauteurBloc
Loop
Cells(LigneDébut, 1).CurrentRegion.Sort Key1:=Cells(LigneDébut + 1, 1).Offset(0, nbcol), _
Order1:=ordre, Header:=xlYes
[A:A].Offset(0, nbcol).Delete Shift:=xlToLeft
End Sub
Sub triNom()
Tri 2, 2, 1, xlAscending, 0
End Sub