Vérifier si dossier Vide sous condition

Bonjour,

Je souhaiterais savoir si un dossier est vide ou s'il contient des fichiers mais le problème c'est que si dans ce dossier il y a des fichiers nommés (arenommer) je ne veux pas qu'il comptabilise ces fichiers,Un compteur n'est pas nécessaire juste je souhaite savoir si le dossier contient des fichiers autres que (arenommer).
Attention à certaines vba boucles (loop) car parfois j'ai énormément de fichiers dans ce dossier.Je ne souhaite pas qu'il me mette une éternité à détecter la présence de fichiers.

J'ai un code VBA mais je ne sais pas si on peut l'adapter à ce cas
le voici:
Dim monrep As String, pasvidedos As String, pasvidefic As String
fichier = "D:\Users\Public\FOLD\AFAIRE\"
pasvidedos = Dir(fichier, vbDirectory Or vbHidden)
Do While pasvidedos = ""
If pasvidedos <> "." And pasvidedos <> ".." Then Exit Do
pasvidedos = Dir
Loop
pasvidefic = Dir(fichier, vbNormal Or vbHidden)
If Not pasvidedos & pasvidefic = "" Then
Else
MsgBox "ATTENTION! Le dossier " & strPath & n 'est pas vide.!", vbCritical
Exit Sub
End If