sinon javais ca de plus simple mais pareil ca ne marche pas
Dim zip As ZipExtractionClass
Set zip = New ZipExtractionClass
If zip.OpenZip("C:\Test\Test.zip") Then
If zip.Extract("C:Test\Extract", True, True) Then
MsgBox "Extraction terminée.", vbInformation
End If
zip.CloseZip
End If
Set zip = Nothing