Exportation de plusieurs feuille dans une feuille

Bonjour à tous,

Je dois automatiser une exportation. je m'explique

J'ai plusieurs boutiques : Boutique1, Boutique2, Boutique3 et Boutique4. Chaque Boutique est placé dans une feuille excel (C'est qui veut dire j'ai la feuille 1 est nommée Boutique1 jusqu'à la feuille4=Boutique4) et chacune de boutique contient des articles, des informations, de Chiffre d'affaire. ces derniers sont de plages filtrées c'est qui veut dire par exemple Article a certaines données (comme on peut trouver bonbon, thé, café, jus, chocolat, etc.).

Mon problème est le suivant comment extraire dans une nouvelle feuille (que je nommerai Boutique ) toutes ces données (Boutique1 à 4).

La feuille Boutique sera présentée comme suivante :

Colonne A B C D

Magasin Article Information Stock

Ligne1:Boutique1 Bonbon Info1 OUI

Ligne2:Boutique1 Chocolat Info2 OUI

Ligne3:Boutique2 Bonbon Info1 NON

Ligne4:Boutique2 BISCUIT Info4 OUI

Ligne5:Boutique3 JUS Info1 NON

Ligne6:Boutique3 Bonbon Info3 OUI

Ligne7:Boutique4 Chocolat Info5 OUI

Ligne8:Boutique4 Bonbon Info2 OUI

Ligne9:Boutique4 Café Info1 Non

Merci d'avancé et bonne soirée.

Bien Cdt.

Bonjour...

Sub cp()
  Dim w As Worksheet
  For Each w In Worksheets
    If w.Name <> "boutique" Then
      w.UsedRange.Copy sheets("boutique").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
    End If
  Next
End Sub