fichier(s) avec extension ". pdf" pas trouvé

Bonjour à tous,

on me donne ce fichier qui "devrait" lister les fichiers d'un répertoire choisi;

le problème est le suivant:

Il liste bien une partie des fichiers XLS, XLSX et autres mais pas les ".PDF" ni ".JPG"

Je ne trouve pas mon erreur dans la ligne:
Trouvé = Not IsError(Application.Match(X, Array(".XLS", ".XLSM", ".XLSX", ".DOC", ".DOT", ".DOCX", "*.PDF", "*.JPG"), 0))

Quelqu'un sait me dire ce qui se passe ?

Question subsidiaire: je n'ai pas de réseau , mais la suite serait de chercher les mêmes type de fichier en réseau, ce code est il suffisant ou faut il autre chose ?

Merci