re
pour info !
j'ai fini par trouver pour la limite du nombre de sous dossiers
le test dans la boucle est supprimé !
il suffisait de tester le nombre de caractère "\"
déduit bien entendu de ceux du répertoire de base choisi ici (OccurDep)
soit, à l'entrée du Sub récursif:
NbrOccur = (Len(Rep.Path) - Len(Replace(Rep.Path, "\", ""))) - OccurDep ' / Len("\")
If NbrOccur <= 3 Then
NbrDeRep = NbrDeRep + 1
Cells(NbrDeRep + 1, 1) = "'" & Rep.DateCreated
. . .