Modification macro création de dossiers et sous dossiers

Bonjour à tous !

J'ai récupéré une bonne macro sur un autre tutoriel qui permet la création de dossier et sous dossiers. Cependant je souhaiterais la faire évoluer et comme j'ai du mal avec les macros je n'y arrive vraiment pas.

Voici la macro le fichier est ci-joint :

Dim n, ligne, Tbl(), RepNiv(1 To 6)
Sub CreeArboRepertoire()
  Tbl = Range("A2:B" & [A65000].End(xlUp).Row).Value
  n = UBound(Tbl)
  niv = 1
  CréeRep Tbl(1, 1), niv
End Sub

Sub CréeRep(parent, niv) ' procédure récursive
 chemin = ""
  RepNiv(niv) = parent
  For i = 1 To niv - 1
   chemin = chemin & RepNiv(i) & "\"
  Next i
  chemin = chemin & parent
  MkDir chemin
  For i = 1 To n
    If Tbl(i, 2) = parent Then CréeRep Tbl(i, 1), niv + 1
  Next i
End Sub

Je vous explique j'aimerais que cette macro puisse créer plusieurs dossiers d'une plage prédéfinie de la plage H27 à H40 dans le fichier . Je souhaiterais également que ces dossiers soit créer dans le dossier déjà existant prédéfinie dans les colonnes A2 et B3 "Z:\SCAN\Protégés".

Est-ce possible?

Merci d'avance pour votre aide