Sub Renommer_avec_numero_ordre()
Dim dossier$, nom$, extension$, liste$(), a, b, n&, t$
dossier = ThisWorkbook.Path & "\MesPDF\" 'à adapter
nom = "FichierPDF " 'à adapter
extension = ".pdf"
'---liste des noms complets et des dates/heures de création---
liste = ListeFichiers(dossier, extension)
If liste(0, 0) = "" Then Exit Sub
a = Application.Index(liste, 2, 0) 'date/heure de création
b = Application.Index(liste, 1, 0) 'nom complet
tri a, b, 1, UBound(a) 'tri sur date/heure de création
'---renomme les fichiers---
For n = 1 To UBound(a) 'renomme provisoirement
Name b(n) As dossier & Format(n, "00000000") & extension
Next
For n = 1 To UBound(a) 'renomme définitivement
t = dossier & Format(n, "00000000") & extension
Name t As dossier & nom & Format(n, "0000") & extension
Next
End Sub