Compter et lister dossier sur VBA

Bonjour à tous

J'ai besoin d'aide s'il vous plaît, vous trouverez ci-joint mon fichier

J'ai un répertoire, puis un sous répertoire Ok et dedans il y avait beaucoup de dossiers à listers comme

exemple du dossier :

15- Luc > OK > 1- DFG

2- DREz

5- SDFt

8- XCVZ

15- SSSSS

20- SDCDG

L'objectif est donc de compter le nombre de dossier sur le répertoire OK, puis de lister ces dossiers

en séparant le numéro et le nom qui est sur le userform dans le fichier joint :

2 DREz

5 SDFt

8 XCVZ

15 SSSSS

20 SDCDG

Puis un affichage sur le userforme également le nom c'est à dire le dossier mère et le nombre

ici donc c'est LUC tous simplement sans le "15- " ou dès fois "15-" sans éspace et "5 dossiers traiter"

Et pour terminer, dans l'onglet résultat se trouve les information pour le résultat :

Le nom et la date où on a fait le compte

Et sur la la feuil 3, la liste : Nom, puis le nom du dossier, puis date :

Nom Numero Dossiers Date

Luc 2 DREz 11/06/2020

Luc 5 SDFt 11/06/2020

Luc 8 XCVZ 11/06/2020

Luc 15 SSSSS 11/06/2020

Luc 20 SDCDG 11/06/2020

NB, si il s'agit de la même personne, la date et le nombre se remplssient tout simplement

mais s'il en a des nouvelles personnes, le nom et se remplisse puis le nombre à la date convenue, comme dans la ligne 6 par exemple EVA n'a travaillé que le 13/06/2020

Merci pour votre aide