Télécharger un fichier .zip en VBA

Bonjour,

J'ai une function qui me permet de télécharger des fichiers qui fonctionne très bien sur de images.

Quand je veux télécharger un fichier .zip il le télécharge bien mais à l'ouverture j'ai un beau message comme quoi le fichier est endommager.

Hors quand je vais directement dans chrome le fichier est très bien.

'Télécharge un fichier
Public Declare PtrSafe Function TelechargerFichierURL Lib "urlmon" Alias "URLDownloadToFileA" _
    (ByVal pCaller As Long, _
    ByVal szURL As String, _
    ByVal szFileName As String, _
    ByVal dwReserved As Long, _
    ByVal lpfnCB As Long) As Long

Public Const ERROR_SUCCESS As Long = 0
Public Const BINDF_GETNEWESTVERSION As Long = &H10

Public Function TelechargerFichierInternet(SourceUrl As String, FichierLocal As String) As Boolean
    TelechargerFichierInternet = TelechargerFichierURL(0&, SourceUrl, FichierLocal, BINDF_GETNEWESTVERSION, 0&) = ERROR_SUCCESS
End Function

Sub test()
    Dim xRacine As String, xInternet As String, xLocal As String, xFichier As String, xTemp As String

    xRacine = ThisWorkbook.Path
    xFichier = "GS-1.zip"
    xInternet = "http://www.donpepe.hebergratuit.net/Maj/GS/" & xFichier
    xLocal = xRacine & "\" & xFichier

    Call TelechargerFichierInternet(xInternet, xLocal)

    If TelechargerFichierInternet(xInternet, xLocal) = True Then
        MsgBox "Le téléchargement a réussi..."
    Else
        MsgBox "Une erreur s'est produite lors du téléchargement..."
        Exit Sub
    End If
End Sub

merci a vous pour votre aide