Extraire données l'une liste

Bonjour à tous,

Je n'arrive pas à faire fonctionner un code d'extraction de données.

Je dispose d'une liste de données extraites de plusieurs documents (colonne AQ). Chaque article de cette liste concerne des lots.

exemple:
article 1 : Lot 2
article 1 : Lot 15
article 1 : Lot 6
article 2 : Lot 6
article 2 : Lot 16
article 2 : Lot 63

J'essaie de mettre au point un code qui, à partir de la colonne contenant lot x liste les données de la ligne entre les colonnes AN:AV afin de regrouper les articles de chaque lot x.

exemple :
Lot 2 : article 1
Total lot 2 :
Lot 6 : article 1
Lot 6 : article 2
Total lot 6 :
Lot ...
...
...

Les lots vont de 1 à 100

Pour ce faire, je repars de ce code (qui ne fonctionne pas):

Sub test()

Range("AY7").Select

Dim a
Dim L

a = a + 1
L = "Logistique" & a

    Set plage = ThisWorkbook.Sheets("Feuil2").Columns("AQ:AQ")

    Set re = plage.Find(L, LookIn:=xlValues, lookat:=xlPart, MatchCase:=True)

        If Not re Is Nothing Then
            Set fr = re
            Do
            ThisWorkbook.Sheets("Feuil2").Range(Cells(re.Row, 40), Cells(re.Row, 48)) = ThisWorkbook.Sheets("Feuil2").Range(Cells(re.Row, 50), Cells(re.Row, 58))
            
            Set re = plage.FindNext(re)
Loop Until re Is Nothing Or re = fr
a = 90
End If

End Sub
 

Merci d'avance pour votre aide