Quelle est mon erreur (création de répertoire sur des poste en reseau)?

Mkdir "\\" & Cells(i,1).value & "\$Migration"

Nblignes = Selection.Rows.Count

Option Explicit

Private Declare Function SHCreateDirectoryEx Lib "Shell32.dll" Alias "SHCreateDirectoryExA" _
                                             (ByVal hwnd As Long, ByVal pszPath As String, ByVal lngsec As Long) As Long

' Pour valeur retournée dans Rep
'   Voir http://msdn.microsoft.com/en-us/library/bb762131(VS.85).aspx
'   et   http://msdn.microsoft.com/en-us/library/ms681381(VS.85).aspx
Private Sub CreationDossier(sDossier As String)
Dim Rep As Long
    Rep = SHCreateDirectoryEx(0&, sDossier, 0&)
End Sub

Sub Tst()
Dim sDossier As String

    sDossier = "C:\Essai1\Essai2\Essai3\Essai4\Essai5"
    CreationDossier sDossier

End Sub

Sub test_2()
For Each i In Range("A2:" & Range("A1").End(xlDown).Address)
    MkDir "\\" & i.Value & "\$Migration"
Next i
End Sub

Sub test()
Dim I As Integer, Action As String, MyData As DataObject
Shell "C:\Windows\system32\cmd.exe", vbNormalFocus
Attente (5)
Action = "Ping 255.255.255.255"
For I = 1 To Le(Action)
SendKeys Mid(Acion, I, 1), True
Next I
SendKeys "{ENTER}"
Attente (20)
'SendKeys Là il faudrait trouver comment copier le résultat...
MyData.GetFromClipboard
MsgBox MyData.GetText(1)
End Sub
Function Attente(Temps As Integer)
Dim Start
    Start = Timer    ' Définit l'heure de début.
    Do While Timer < Start + Temps
        DoEvents    ' Donne le contrôle à d'autres processus.
    Loop
End Function