Comment classer par 6 lignes ???

Sub Tri()
  LigneDébut = 3
  HauteurBloc = 7
  nbcol = 1
  IndexTri = 5
  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 + IndexTri, 1)
    i = i + HauteurBloc
  Loop
  Cells(LigneDébut, 1).CurrentRegion.Sort Key1:=Cells(LigneDébut + 1, 1).Offset(0, nbcol), _
      Order1:=xlAscending, Header:=xlYes
  [A:A].Offset(0, nbcol).Delete Shift:=xlToLeft
End Sub

Sub Tri3()
  LigneDébut = 3
  i = LigneDébut
  n = [a65000].End(xlUp).Row
  Do While i <= n          '[B] traitement de toutes les lignes[/B] 
   Columns("B:C").Insert Shift:=xlToRight
    ligne = 1
    Do                           [B]' traitement d'un groupe[/B]
      If Left(Cells(i, 1), 6) = "Value=" Then
        Cells(ligne, 2) = Cells(i, 1)
        Cells(ligne, 3) = i
        ligne = ligne + 1
[B]        '-- on cherche la fin du groupe: y a t-il 'Value=' 7 cellules plus loin
        '-- si oui on sort de la boucle[/B]
        If Left(Cells(i + 7, 1), 6) <> "Value=" Then i = i + 1: Exit Do
      End If
      i = i + 1
    Loop
    [B]'--- tri[/B]
    [B1:B1000].Sort Key1:=Range("B1"), Order1:=xlAscending, Header:=xlNo, _
          OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
    ligne = 1
    Do While Cells(ligne, 3) <> ""
      p = Cells(ligne, 3)
      Cells(p, 1) = Cells(ligne, 2)
      ligne = ligne + 1
    Loop
    [B:C].Delete Shift:=xlToLeft
  Loop     [B]' groupe suivant[/B]
End Sub