Function TestExisteDossier(CheminDoss As String) As Boolean
Dim FS
Set FS = CreateObject("Scripting.FileSystemObject")
TestExisteDossier = FS.folderexists(CheminDoss)
End Function
Sub CreeDossier()
If Not TestExisteDossier("c:\" & Sheets(1).Range("C2").Value)Then
MkDir "c:\" & Sheets(1).Range("C2").Value
End If
End Sub