Bonjour,
A tester :
Sub TRI()
Dim L%, I%, R As Byte
With Worksheets("Feuil1")
L = .Cells(.Rows.Count, 1).End(xlUp).Row
I = 3
For R = 3 To (L - 3) / 8
.Range(.Cells(I, 1), .Cells(I + 6, 22)).Sort .Cells(I, 2), xlAscending, , .Cells(I, 3), xlAscending
'.Range(.Cells(I, 1), .Cells(I + 6, 1)).EntireRow.Sort .Cells(I, 2), xlAscending, , .Cells(I, 3), xlAscending
I = I + 8
Next R
End With
End Sub
J'ai modifié également pour ne pas trier par ligne entière. Si vous souhaitez trier par ligne entière supprimez la ligne au dessus de la ligne en commentaire et le ' de la ligne en commentaire.
A convenance en fonction de votre besoin exact.
Cdlt,