Sub ListeDesFichiers()
Dim NomRep, Tabnom, LeMot, NomFich, Oldname
NomRep = "D:\xls"
With Excel.Application.FileSearch
.NewSearch
.LookIn = NomRep
'.SearchSubFolders = True 'si tu veux les fichiers des sous-répertoires
.Filename = "*.xls"
If .Execute() > 0 Then
For i = 1 To .FoundFiles.Count
Tabnom = Split(.FoundFiles(i), "\")
NomFich = Tabnom(UBound(Tabnom))
LeMot = "po"
Oldname = .FoundFiles(i)
Name Oldname As NomRep & "\" & LeMot & i & Right(NomFich, Len(NomFich) - 2)
Next i
End If
End With
End Sub