Dezipper un dossier depuis une macro VBA Excel ?

Salut tout le monde,

Je débute en VBA et j'aurais souhaité comprendre une macro qui dezip un fichier pour récuperer mon fichier .exe depuis une macro VBA.

J'ai trouver ca sur Internet mai impossible de comprendre son fonctionnement :/

Option Explicit 
 
Sub Unzip() 
Dim FSO As Object 
Dim oApp As Object 
Dim DossierZip As Variant 
Dim DossierDezip As Variant
Dim UserAct As String

    UserAct = Environ("Username")
     
    DossierZip = "C:\Users\" & UserAct & "\Downloads\test.zip"
    DossierDezip = "C:\XXX\Test"
 
    Set FSO = CreateObject("Scripting.FileSystemObject" ) 
    If FSO.FolderExists(DossierDezip) Then 
        FSO.DeleteFile DossierDezip & "\*.*", True 
        FSO.DeleteFolder DossierDezip & "\*.*", True 
    End If 
    Set FSO = Nothing 
 
    If CreationDossier(DossierDezip) Then 
 
        Set oApp = CreateObject("Shell.Application" ) 
        oApp.Namespace(DossierDezip).CopyHere oApp.Namespace(DossierZip).items 
        Set oApp = Nothing 
 
        Application.StatusBar = "Les fichiers Dézippés se trouvent dans : " & DossierDezip 
    End If 
End Sub 

Puis

Private Function CreationDossier(ByVal sChemin As String) As Boolean 
Dim i As Integer, sTmp As String, Ar() As String 
    If InStr(sChemin, ":" ) = 0 Then 
        Ar = Split(CurDir & "\" & sChemin, "\" ) 
    Else 
        Ar = Split(sChemin, "\" ) 
    End If 
 
    sTmp = Ar(0) 
    ChDrive sTmp 
 
    For i = LBound(Ar) + 1 To UBound(Ar) 
        If Ar(i) <> "" Then 
            sTmp = sTmp & "\" & Ar(i) 
            On Error Resume Next 
            MkDir sTmp 
            On Error GoTo 0 
        End If 
    Next i 
 
    If Dir(sChemin, vbDirectory) = vbNullString Then 
        CreationDossier = False 
    Else 
        CreationDossier = True 
    End If 
End Function 

Si quelqu'un pourrait me le commenter pour une meilleure explication :)

Je vous en remercie d'avance !