'Dans un module standard
Public Const url As String = "http://www.monblogamoi.com/" 'url de l'image
Public chemin, Fichier, img As String
'À placer dans le module du formulaire
Private Declare Function URLDownloadToFile 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
img = "tarzan.jpg"
Fichier = url & "/" & img
chemin = ThisWorkbook.Path & "\fichier"
URLDownloadToFile 0, Fichier, chemin, 0, 0
With Me
.Image1.Picture = LoadPicture(chemin)
End With