Bonjour,
Votre problème se situe ici:
With ThisWorkbook.Sheets("feuil2")
chemin_dossier = Range("b2") ' chemin de la cellule
Si vous n'aviez pas utilisez "With", vous auriez dû écrire:
chemin_dossier = ThisWorkbook.Sheets("feuil2").Range("b2") ' chemin de la cellule
L'utilisation de "With" permet d'écrire toutes les commandes qui s'y réfèrent sur les lignes suivantes sans répéter à chaque fois "ThisWorkbook.Sheets("feuil2")" ,
OUI MAIS, il ne faut pas oublier le point de séparation devant "Range", comme ceci:
With ThisWorkbook.Sheets("feuil2")
chemin_dossier = .Range("b2") ' chemin de la cellule
Cdlt