Sub Macro2()
racine = "C:\Users\moi\Desktop\Temp\Macro\"
'pour chaque produit de la base de données
For Each entree In Range("entree")
'on met le produit dans la cellule de la feuille résultat
'ainsi, les data colonne B se mettent à jour avec la formule présente
Sheets("feuil1").Range("C3") = entree
Sheets("feuil1").Range("C4") = Range("entree").Offset(0, 1).Value
Sheets("feuil1").Range("C5") = Range("entree").Offset(0, 9).Value
'on donne le nom du nouveau répertoire:
NouveauRepertoire = racine & entree
'on créé le répertoire
MkDir NouveauRepertoire
'on se place dedans
ChDir NouveauRepertoire