Sub Renommer_Fichier()
Dim chemin$, typ$, fic$
Dim Reg As Object
chemin = ThisWorkbook.Path & "\" '<< Changer le chemin
typ = ".csv"
fic = Dir(chemin & "*" & typ)
Do While fic <> ""
With CreateObject("VBScript.RegExp")
.IgnoreCase = True
.Pattern = "([a-zA-Z0-9]+)(.+)(" & typ & ")"
If .test(fic) Then Name fic As .Replace(fic, "$1$3")
fic = Dir
End With
Loop
End Sub