Déplacement fichier mp3 de divers folder vers un folder unique

Bonjour,

J'ai le code suivant qui marche très bien si le fichier source est toujours le même :

Sub essai2()
repertoire1 = "F:\Musique\Musique\"
repertoire2 = "d:\totobis\"
nf = Dir(repertoire1 & "*.mp3*")
Do While nf <> ""
If Not nf Like "*ABC*" Then
Name repertoire1 & nf As repertoire2 & nf
End If
nf = Dir
Loop
End Sub

Comment dois-je le modifier pour que la macro aille voir dans tous les sous-répertoires repris sous F:\Musique\Musique\ et qui ont à chaque fois un nom différent ?? En résumé j'aimerais que la macro aille prendre tous les morceaux repris dans un album (sous -répertoire) et les copies en liste dans le folder d:\totobis\ ?

Merci d'avance.
Mike