Créer ongets grave à la valeur d'une cellue

Bonjour à tous,

Je suis un débutant de code VBA et j'ai un problème que je n'arrive pas à résoudre même en cherchant sur internet.

j'ai un document avec un colonne (colonne B feuille 2) qui contient des nom de fournisseurs et j'aimerais créer un onglet pour chaque fournisseur en sachant qu'il peut y avoir plusieurs fois le même nom dans la liste (il faudra dans ce cas stocker les infos de ce fournisseur dans la même feuille)

J'aimerais que les infos du fournisseur aillent dans l'onglet qui le concerne.

aidez moi s'il vous plait !!!

bonjour,

une proposition

Sub aargh()
    With Sheets("data")
    set ws = Nothing
        For i = 2 To .Cells(Rows.Count, 1).End(xlUp).Row
            On Error Resume Next
            Set ws = Sheets(.Cells(i, 2).Value)
            On Error GoTo 0
            If ws Is Nothing Then
                Set ws = Sheets.Add(after:=Sheets(Sheets.Count))
                .Range("A1:C1").Copy ws.Range("A1")
                ws.Name = .Cells(i, 2)
            End If

            dl = ws.Cells(Rows.Count, 1).End(xlUp).Row
            .Cells(i, 1).Range("A1:C1").Copy ws.Cells(dl + 1, 1)
            Set ws = Nothing
        Next i
    End With
End Sub

ah oui ca ressemble a ce que je veux faire sauf que tu prend les données de DATA alors qu'il faudrait prendre les données de la feuille 2 (ca me rajoute des onglets dont je n'ai pas besoin). mais j'ai juste eu a changer le nom de la feuille pour que ca marche donc merci beaucoup, ca faisait des heures que j'étais dessus.

merci