Sub RenommerPDF()
Dim c As Range, chemin$, fichier$, x$
For Each c In Intersect([B:B], ActiveSheet.UsedRange.EntireRow) 'colonne B à adapter éventuellement
chemin = c & IIf(Right(c, 1) = "\", "", "\")
fichier = Dir(chemin & "*.pdf") '1er fichier PDF du dossier
While fichier <> ""
x = Replace(Replace(Replace(fichier, ".pdf", "|"), ".", ""), "|", ".pdf") 'suppression des points
x = Replace(Replace(Replace(x, "-", ""), "_", ""), " ", "") 'suppression des tirets et espaces
Name chemin & fichier As chemin & x 'renomme le fichier
fichier = Dir 'fichier suivant du dossier
Wend
Next
End Sub