Bonjour à tous,

J'ai un fichier excel (fichier de données) de 6 colonnes et x lignes.
Dans la 1ère colonne il y a des valeurs qui reviennent plusieurs fois.

J'ai un 2ème fichier Excel vide qui est ma maquette.

Je souhaite que pour chaque valeur différente il créé un nouvel onglet.
Pour chaque onglet, je souhaite qu'il copie les valeurs des cellules du fichier de données en les collant dans le bon onglet.

Précision : Si une valeur de ma colonne A du fichier de données apparaît x fois, dans l'onglet lui correspondant dans la maquette, il y aura x lignes.

Exemple :

Toto	Employé		12        etc...
Toto	Agriculteur	11 
Tata	Artisan		15
Tata	Employé		11
Tata	Commerçant	13 
Titi	Employé		12
Titi	Artisan		11
Titi	Agriculeur	10
Titi	Commerçant	12
Pour cet exmple je souhaite obtenir un onglet Toto avec 2 lignes :
Employé		12	etc...
Agriculteur	11	etc...
Un onglet Tata avec 3 lignes :
Artisan		12	etc...
Employé		11	etc...
Commerçant	13	etc...
et ainsi de suite jusqu'à ce qu'il n'y ait plus de données.

Le code que j'ai fait mais qui ne correspond pas :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub Lancer_ETP()
Workbooks(base).Activate
j = 4
For i = 2 To nbligne
    Workbooks(maquette).Activate
    If FeuilleExiste(Workbooks(maquette), Workbooks(base).Sheets("onglet").Range("A" & i).Value) = False Then
        Sheets.Add
        ActiveSheet.Name = Workbooks(base).Sheets("onglet").Range("A" & i).Value
        Workbooks(base).Sheets("Onglet").Range("B" & i & ":F" & i).Copy
        ActiveSheet.Range("A" & j).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False
        j = j + 1
    End If
Next i
End Sub
Merci pour votre aide !