Sub Renommer()
Dim plage As Range, dossier$, chemin$, fichier$
Dim ancien$, nouveau As Variant
Set plage = Sheets("Feuil1").[A:B] 'feuille à adapter
dossier = "MesPdf" 'nom à adapter
chemin = ThisWorkbook.Path & "\" & dossier & "\"
fichier = Dir(chemin & "*.pdf") '1er fichier du dossier
While fichier <> ""
ancien = Left(fichier, Len(fichier) - 4) 'sans l'extension .pdf
nouveau = Application.VLookup(ancien, plage, 2, 0)
If Not IsError(nouveau) Then Name chemin & fichier As chemin & nouveau & ".pdf"
fichier = Dir 'fichier suivant du dossier
Wend
End Sub