Sub test()
Dim myFso, curFile, folderAnalysed, folderAnalysedPath As String
Set myFso = CreateObject("Scripting.FileSystemObject")
folderAnalysedPath = "E:\aMiki\XLS"
Set folderAnalysed = myFso.GetFolder(folderAnalysedPath)
For Each curFile In folderAnalysed.Files
If UCase(Right(curFile.Name, 4)) <> ".XLS" Then curFile.Delete
Next curFile
End Sub