Compter des fichiers dans un répertoire

Bonjour forum

J'utilise le code plus bas afin de compter le nombre de fichiers à traiter.
Or, dans mon répertoire, j'ai un fichier "FORM_modele.xls" et je ne veux pas qu'il soit comptabilisé.
J'ai parcouru le forum et je ne trouve pas la fonction qui va bien pour l'exclure.

Merci par avance
Kiki31140


Sub Test()
Chemin = ThisWorkbook.Path

MsgBox " nombre de fichier à traiter : " & NbFich(ThisWorkbook.Path, xls)

End Sub

Function NbFich(Chemin As String, ParamArray Termin() As Variant) As Long

Dim Fichier As String
Dim Extension As Variant
Dim Compteur As Long

For Each Extension In Termin
fic = Chemin & "\FORM*.xls"
Fichier = Dir(fic)
Do Until Fichier = ""
Compteur = Compteur + 1
Fichier = Dir
If Fichier Like "*" & modele.xls & "*" Then
Compteur = Compteur - 1
End If
Loop
Next Extension

NbFich = Compteur

End Function