Salut,

dans l'aide sur CreateFolder, clique sur "Applies To", et tu auras la réponse

A+.

Salut et merci
le message n'est plus d'actualité j'ai trouvé la solution mais je vais quand meme jetter un oeil .(l'aide en ligne d'excel c'est pas le top quand même)
Cordialement
G.David
PS j'ai pas tout compris a ce que j'ai fait mais ça marche
le respect n'est pas un dû
il se merite

Salut voilà ce que j'ai fait

Sub récuperation()
Dim nom(5) As Variant
Dim Repertoir As String
Dim fs, f, f1, s, sf
Dim NumMoule As String

'
'================== Récupération des noms ================
'


Application.ScreenUpdating = False
Sheets(1).Select

NumMoule = Range("c6").Value

'
ChDir Repertoir
'============== test/creation du dossier================
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(Repertoir)
Set sf = f.SubFolders
t = 0
For Each f1 In sf
s = f1.Name
If s = NumMoule Then
t = 1
End If

Next
If t = 0 Then ' le repertoir moule n'existe pas
ChDir Repertoir
Repertoir = Repertoir + "\" + NumMoule
MkDir Repertoir
ChDir Repertoir
Repertoir = Repertoir + "\" + "th"
MkDir Repertoir
ChDir Repertoir

ElseIf t = 1 Then 'repertoir moule existe test le s/s rep TH
Repertoir = Repertoir + "\" + NumMoule
ChDir Repertoir
Set f = fs.GetFolder(Repertoir)
Set sf = f.SubFolders
t = 0
For Each f1 In sf
s = f1.Name
If s = "th" Then
t = 2
End If
Next
End If
If t = 2 Then
Repertoir = Repertoir + "\" + "th"
Else
ChDir Repertoir
Repertoir = Repertoir + "\" + "th"
MkDir Repertoir
ChDir Repertoir
End If
'===============
le respect n'est pas un dû
il se merite