Bonjour,
Une macro à coller dans un module standard de l'éditeur VBA Excel (accessible via ALT + F11) :
Sub RenommageSérie()
Dim fichier As String, repertoire As String, NomComplet As String
Début:
'Boîte de dialogue (choix du répertoire)
With Application.FileDialog(msoFileDialogFolderPicker)
.Title = "Choisir un répertoire"
.Show
If .SelectedItems.Count > 0 Then repertoire = .SelectedItems(1) & "\" Else GoTo Début
End With
'Boucle sur chaque fichier
fichier = Dir(repertoire, 0)
While fichier <> ""
NomComplet = repertoire & fichier
Name NomComplet As Replace(NomComplet, "-BlaBlaBla", "") 'Renommage
fichier = Dir
Wend
End Sub