.....
[b]
Private Declare Function SHCreateDirectoryEx Lib "Shell32.dll" Alias "SHCreateDirectoryExA" _
(ByVal hwnd As Long, ByVal pszPath As String, ByVal lngsec As Long) As Long[/b]
Private Sub Conversion(ByVal sNomFichier As String, ByVal sExtension As String)
Dim FSO As Object
Dim sFichier As String, sExt As String, sF As String
Dim Wkb As Workbook, sChemin As String, sSauvegarde As String
.....
sChemin = ThisWorkbook.Path
[b]CreationDossier sChemin & "\" & UCase(sExtension) & "\"[/b]
sSauvegarde = sChemin & "\" & sExtension & "\" & sF
.....
[b]
Private Sub CreationDossier(sDossier As String)
Dim Rep As Long
Rep = SHCreateDirectoryEx(0&, sDossier, 0&)
End Sub[/b]