Tu es simplement magique. Bravo.
Je récapitule pour ceux qui ont auront besoin

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
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
Dim Ws_Source As Worksheet
Dim Ws_Vendeur As Worksheet
Dim Wb_Donnee As Workbook
Dim PlageVendeur As Range
Dim TheVendeur As Range
 
'Init
Set Wb_Donnee = ThisWorkbook
Set Ws_Vendeur = Wb_Donnee.Worksheets("Fichier Vendeurs")
With Ws_Vendeur
    Set PlageVendeur = .Range("A3", .Cells(.Rows.Count, "A").End(xlUp))
 
    'On verifie que des vendeur soient présents
    If PlageVendeur Is Nothing Then Exit Sub
 
    'On boucle sur les valeurs contenu dans PlageVendeur
    For Each TheVendeur In PlageVendeur
 
            'On verifie que l'onglet existe bien
   Set Ws_Source = Wb_Donnee.Sheets(CStr(TheVendeur.Value))
            If Ws_Source Is Nothing Then
                'Pas d'onglet correspondant au vendeur
                'On le rajoute
                Set Ws_Source = Wb_Donnee.Sheets.Add
                Ws_Source.Name = TheVendeur.Value
            End If
            'Un ongler au nom du vendeur est bien présent, on copie la donnée
            'Offset(0,12) permet de se décaler de 0 lignes, 12 colonne, on passe donc de la colonne A à M
            TheVendeur.Offset(0, 12).Value = Ws_Source.Range("A39").Value
            'On libert ws_source
            Set Ws_Source = Nothing
 
 
    Next
 
End With
End Sub