un exemple pour donner une idée
en supposant que ta liste de répertoires commence en A2, et le sous répertoires en B2
Sub dd()
'MsgBox CurDir
For i = 2 To ActiveSheet.Range("A65536").End(xlUp).Row
If Dir(Cells(i, 1).Value, vbDirectory) = "" Then MkDir Cells(i, 1).Value
If Dir(Cells(i, 1).Value & "\" & Cells(i, 2).Value) = "" Then MkDir Cells(i, 1).Value & "\" & Cells(i, 2).Value
Next i
End Sub