Classement par boucle

Bonjour Messieurs

J'aurais besoin de votre aide pour classer mon fichier ,j'arrive a faire ce que je veux avec une macro simple (macro1) mais que sur un groupe de données et je voudrais le faire en boucle pour toutes les données du tableau (env 500 groupes)

dans le fichier j'ai mis en feuill 1 le résultat que j'obtient en lançant la macro

en sachant que chaque groupe est similaire au niveau des nombres de lignes

pouvez vous m'aider?

merci d'avance

Bonjour,

Voir fichier joint (Ctrl + w pour lancer la procédure / Alt F11 pour ouvrier l"éditeur VBA)

Option Explicit
Public Sub traitement()
' Ctrl + w
      Dim f1 As Worksheet, f2 As Worksheet
      Dim Dl As Long, i As Long, lig As Long
10        Application.ScreenUpdating = False
20        Set f1 = Worksheets("Client pliage 2010")
30        Set f2 = Worksheets("Synthèse")
40        Dl = f1.Range("A" & Rows.Count).End(xlUp).Row - 2
50        lig = 1
60        With f2
70            .Cells.Clear
80            For i = 7 To Dl Step 4
90                .Cells(lig, 1) = f1.Cells(i, 3)
100               .Cells(lig, 2) = f1.Cells(i, 1)
110               .Cells(lig, 3) = f1.Cells(i, 2)
120               .Cells(lig, 4) = f1.Cells(i + 2, 1)
130               .Cells(lig, 5) = f1.Cells(i + 2, 2)
140               .Cells(lig, 6) = f1.Cells(i + 2, 4)
150               lig = lig + 1
160           Next
170       End With
180       Set f1 = Nothing: Set f2 = Nothing
End Sub

c'est parfait , Jean Eric

c'est exactement ca

merci pour tout