Récupérer noms & contenus d'une liste d'onglet

Bonjour à toutes et tous et merci pour votre future aide !

J'ai un fichier qui se compose de 250 onglets. Chaque onglet possède le nom d'un magasin.

Dans chaque onglet, on retrouve la même chose.

Code Barre / Désignation / Ventes / Stock.

Dans chaque onglet, rien n'indique le nom du magasin hormis le nom de l'onglet.

J'aimerais alors synthétiser tout ça dans une seul et même onglet sans avoir à faire du copier/Coller de chaque onglet…

Surtout que c'est fichier que je vais avoir chaque semaine

Je vous remercie pour votre aide !

Bonne journée.

bonjour,

une proposition

Sub aargh()
    With Sheets("synthèse") '<- feuille de synthèse doit exister dans le classeur
        .Cells.ClearContents
        ctrl = 0
        For Each ws In Worksheets
            If ws.Name <> .Name Then
                If ctrl = 0 Then
                    .Cells(1, 2).Resize(, 4).Value = ws.Cells(1, 1).Resize(, 4).Value
                    .Cells(1, 1) = "Magasin"
                    ctrl = 2
                End If
                dl = ws.Cells(Rows.Count, 1).End(xlUp).Row - 1
                .Cells(ctrl, 1).Resize(dl) = ws.Name
                .Cells(ctrl, 2).Resize(dl, 4).Value = ws.Cells(2, 1).Resize(dl, 4).Value
                ctrl = ctrl + dl
            End If
        Next
    End With
End Sub

Alors là ! Je n'ai qu'un mot : MERCI ! C'est parfait. C'est exactement ce que je cherchais à faire.

Bon, j'ai juste une modification a apporter. Les colonnes à importer vont de A à F. Soit 6 colonnes.

J'ai peur de mettre les mains dans le cambouis…

Faut-il que je modifie les valeurs 4 en 6 ?

Merci encore.

C'est bon ! J'ai mis mes 6 colonnes.

Tout marche bien.

Encore bravo et surtout merci.