Création d'un onglet depuis une liste

Bonjour à tous,

J'ai parcouru plusieurs post sur le sujet. J'ai du mal à trouver le complément de la formule que j'utilise.

Contexte :

J'ai un tableau avec différentes informations sur des boutiques. (sachant que la liste peut s'allonger)

Je souhaite créer à partir de ce tableau un onglet par boutique qui reprendra toutes les infos

Ou j'en suis :

Création des onglets par boutiques OK

Remplissage des onglets par les infos voulues KO

pouvez vous m'aider svp ?

Le fichier est joint

Salut aurelienFV1985,

Public Sub Classement_Boutique_par_Onglet()
'
Dim Sh As Worksheet
Dim sItem$
'
Application.ScreenUpdating = False
'
With Worksheets("Feuil1")
    On Error Resume Next
    For x = 2 To .Range("B" & Rows.Count).End(xlUp).Row
        sItem = .Range("B" & x).Value
        Set Sh = Worksheets(sItem)
        If Sh Is Nothing Then
            ThisWorkbook.Sheets.Add(after:=Sheets(Sheets.Count)).Name = sItem
            Set Sh = Worksheets(sItem)
            .Range("A1:I1").Copy Destination:=Sh.Range("A1:I1")
        End If
        iRow = Sh.Range("A" & Rows.Count).End(xlUp).Row + 1
        Sh.Range("A" & iRow & ":I" & iRow).Value = .Range("A" & x & ":I" & x).Value
        Set Sh = Nothing
    Next
    On Error GoTo 0
End With
Application.ScreenUpdating = True
'
End Sub

A+

Un immense merci curulis57 ! c'est parfaitement ce qui me faut!!!

Quelle bonne nouvelle pour attaquer la journée!

Aurélien