renommer fichiers

Bonjour, J'ai un code pour pouvoir lister et renommer des fichiers en bloc mais je n'arrive pas à l'adapter pour ma nouvelle feuille Excel. Pour la fonction lister: Je souhaiterais qu'il n'ouvre pas une fenêtre de dialogue mais qu'il reprenne automatiquement le chemin d'accès du dossier de la...