Sub renommer()
Dim nom As String, lettre As String
Dim fichiers, dossier, fs, f
[B][COLOR="RoyalBlue"]On Error Resume Next
[/COLOR][/B]
Set fs = CreateObject("Scripting.FileSystemObject")
Set dossier = fs.getfolder(Range("A2"))
Set fichs = dossier.Files
For Each f In fichs
nom = ""
For j = 1 To Len(f.Name)
lettre = Mid(f.Name, j, 1)
If lettre <> "_" And lettre <> "-" Then
nom = nom & lettre
End If
Next j
f.Name = nom
Next f
End Sub