Enlever début de nom

Name AncienNom As NouveauNom

Sub AppelRenomme()
'Tu peux aisément adapter la partie de texte à supprimer des noms de fichiers
RenommeFichiers "Films non triés - Film de Inconnu, en Inconnu - "
End Sub

Sub RenommeFichiers(StrEnTrop As String)
    Dim Chemin As String, Fichier As String
    Dim AncienNom As String, NouveauNom As String
    Dim objShell As Object, objFolder As Object
 
    'Définit le répertoire contenant les fichiers

    Set objShell = CreateObject("Shell.Application")
    Set objFolder = objShell.BrowseForFolder(&H0&, "Choisir un répertoire", &H1&)

    If objFolder Is Nothing Then
        MsgBox "Abandon opérateur", vbCritical, "Annulation"
    Else
        Chemin = objFolder.ParentFolder.ParseName(objFolder.Title).Path & "\"
    End If
 
    'Boucle sur tous les fichiers du répertoire.
    Fichier = Dir(Chemin & "*.*")
    Do While Len(Fichier) > 0
        AncienNom = Fichier
        If Left(AncienNom, Len(StrEnTrop)) = StrEnTrop And Len(AncienNom) > Len(StrEnTrop) Then
            NouveauNom = Right(AncienNom, Len(AncienNom) - Len(StrEnTrop))
            'Renomme le fichier
            Name AncienNom As NouveauNom
        End If
        Fichier = Dir()
    Loop
End Sub

'Pensez aux balises de code : bouton <>, 
'Précisez le langage dans la liste déroulante. Ex : code java

    For i = 2 To [A2].End(xlDown).Row
        Titre = Right(Cells(i, 1), Len(Cells(i, 1)) - InStr(InStr(1, Cells(i, 1), "-", 1) + 1, Cells(1, 1), "-", 1) - 1)
        Cells(i, 1) = Titre
    Next