Sub RemameFiles()
Dim i As Integer
Dim ii As Integer
Dim Fichier As String
Dim NewName As String
Dim rep As String
Dim rep1 As Variant
Dim fs As FileSearch
Set fs = Application.FileSearch
With fs
.NewSearch
.LookIn = Me.TxbBrowseForFolder.Value
.SearchSubFolders = True
.FileType = msoFileTypeExcelWorkbooks
.Execute msoSortByFileName, msoSortOrderAscending
If .Execute() > 0 Then
On Error Resume Next
For i = 1 To .FoundFiles.Count
For ii = 1 To 78
ii = ii + 1
Fichier = .FoundFiles(i)
rep1 = Split(Fichier, "\")
rep = Left(Fichier, Len(Fichier) - Len(rep1(UBound(rep1))))
Name Fichier As rep & "test" & ii & ".xls"
Next ii
Next i
Else
MsgBox "Pas de fichier(s) trouvé(s)"
End If
End With
End Sub