Sub Crea_dossiers()
Dim C As Range, Chemin$, Classeur$
Chemin = ThisWorkbook.Path & "/"
For Each C In Range("a1:a" & Range("a65535").End(xlUp).Row)
If C.Value <> "" Then
Classeur = C.Value
If Dir(Chemin & Classeur, vbDirectory) = "" Then MkDir Chemin & Classeur
End If
Next C
End Sub