Sub Macro3()
Dim FS As Object
Dim DS As Object
Dim SD As Object
Dim E As Object
Dim N As String
Dim D As Date
Dim DM As Date
Dim DF As String
Set FS = CreateObject("Scripting.FileSystemObject")
Set DS = FS.GetFolder("C:\Blablabla") 'à adapter ici tu mets le chemin completdu dossier source
Set SD = DS.SubFolders
For Each E In SD
N = E.Name
D = Format(E.datecreated, "dd/mm/yyyy")
If D > DM Then DM = D: DF = N
Next E
MsgBox "Le dernier dossier créé est : " & DF & ", créé le " & DM 'à remplacer par le code qui utilisera DF
End Sub