Sub ReName()
Dim myFso As Object, folderAnalysed As Object, curFile As Object
Dim newName As String, folderPath As String
Dim i As Long
folderPath = "E:\aMiki\XLS"
Set myFso = CreateObject("Scripting.FileSystemObject")
Set folderAnalysed = myFso.GetFolder(folderPath)
i = 0
For Each curFile In folderAnalysed.Files
If curFile.Name Like "données*" Then
Do
i = i + 1
newName = folderAnalysed.Path & "\" & i & ".xls"
Loop Until Dir(newName) = vbNullString
Name curFile.Path As newName
End If
Next curFile
End Sub