Sub Macro1()
Dim chemin As String 'déclare la variable chemin
Dim fs, f, f1, fc, s 'déclare les variables fs, f, f1, fc, s
Dim ext As String 'déclare la variable ext (EXTension)
Dim deb As String 'déclare la variable deb (DEBut)
Dim fin As String 'déclare la variable fin
Dim inv As String 'déclare la variable inv (INVersion)
chemin = "c:\Documents\Musique"
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(chemin)
Set fc = f.Files
For Each f1 In fc
ext = Right(f1.Name, 4) 'extrait l'extension
deb = Split(f1.Name, " - ", -1)(0) 'extrait la première partie
fin = Split(f1.Name, " - ", -1)(1) 'extrait la seconde partie (avec l'extension)
fin = Split(fin, ".", -1)(0) 'extrait la seconde partie (sans l'extension)
inv = fin & " - " & deb & ext 'definit le nom inversé
f1.Name = inv
Next
End Sub