VBA rechercher dans certains sous-dossiers et pas d'autres

Bonjour à toutes et à tous,

Tout d'abord voici mon code:

Sub import_donnees()

Dim Arret As Boolean

'selection de la lettre réseau
Sheets("menu").Select
Range("B4").Select

'si la cellule active = "", erreur
If ActiveCell = "" Then
MsgBox ("entrez votre lettre réseau...")
Arret = True

Else
Sheets("menu").Select
Range("B4").Select

' status bar
Application.StatusBar = " Je recherche les données du dossier " & ActiveCell.Value & " mon répertoire

'utilisation de l'outil filsearch d'Excel
With Application.FileSearch

'répertoire des données
.LookIn = ActiveCell.Value & "mon répertoire"

'nom et type de fichier
.Filename = "*.pdf"

'chercher dans les sous-dossiers
.SearchSubFolders = True

'executer la macro
.Execute

'les mettre les uns en dessous des autres
Sheets("CONF_NS").Select
For i = 1 To .FoundFiles.Count
Cells(i + 2, 1) = .FoundFiles(i)

Next
End With

'appel de procédures
Application.Run "autre macro"

Application.StatusBar = False

Sheets("Menu").Select
End If
End Sub

Mon souci est que j'aimerai chercher dans certains sous-dossiers (environ une trentaine) et laisser de coté environ 5-6 sous dossiers (dans lesquelles Excel n'aurait pas besoin de chercher...)

Comment puis-je interpreter ça en VBA ?

D'avance merci,

Souri84

je fais remonter le fil....

d'avance merci !

Souri84