Sub a()
Dim oFSO As Object
Dim oFolder As Object
'Set objet File system Object
Set oFSO = CreateObject("Scripting.FileSystemObject")
'Créer le répertoire
oFSO.CreateFolder ("F:\TEMP\" & [A1].Value)
'Accéder au répertoire
Set oFolder = oFSO.GetFolder("F:\TEMP\" & [A1].Value)
End Sub