Reconnaitre un fichier excel

Bonjour,

Ya-t-il une fonction VBA deja existante qui permet de reconnaitre un fichier Excel d'un autre fichier?

J'utilise le simple code suivant et j'aimerais qu'il affiche dans la listbox1 seulement les fichiers Excel ... est ce possible?

/*******************************
Dim fso As Object, dossier As Object

Set fso = CreateObject("Scripting.FileSystemObject")
Set dossier = fso.GetFolder(chemin & "\")
Set sousdossier = dossier.SubFolders

For Each Flder In sousdossier

Set fichier = Flder.Files
For Each fl In fichier
ListBox1.AddItem fl.Name
Next fl

Next Flder

/**********************************



Merci!

Eric