calculer le nombre fichier .xls dans un dossier

Bonjour,
Je cherche à déterminer le nombre de fichier .xls présent dans un dossier.
Le problème avec la macro ci-dessous est que ça prend en compte dans le calcul les extensions .xlsm et .xlsx
Je ne vois pas où est l'erreur.

Sub test()
Dim FileSystemObject As Object, f As Object
Dim Compteur As Long
Dim Chemin As String

Set FileSystemObject = CreateObject("Scripting.FileSystemObject")
Chemin = "C:\"

For Each f In FileSystemObject.GetFolder(Chemin).Files
If InStr(1, f.Name, ".xls") > 0 Then Compteur = Compteur + 1
Next f
MsgBox "Nombre total de fichiers : " & Compteur
End Sub

Merci de votre aide