Macro Excel - Déplacer fichier dans un dossier en fonction du nom

Bonjour,

je souhaiterais trouver une macro qui me permette de déplacer des fichiers dans un répertoire, en fonction du nom du fichier et du nom du répertoire.

Je m'explique!
j'ai des fichiers qui vont se nommer de la façon suivante (les 2 premiers caractères étant le département)
01-test.xls
01-test1.xls
94-test.xls
95-xls

et j'aimerais que les fichiers soient déplacés dans le dossier de leur département
01-test.xls -> dans le dossier '01'
01-test1.xls -> dans le dossier '01'
94-test.xls-> dans le dossier '94'
95-xls-> dans le dossier '95'

Merci de votre aide