Bonjour,
Je pense qu'il faut au préalable enregistrer l'image sur son pc,
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
Sub test()
Dim MonFichier As String
MonImage = "C:\Users\isabelle\Documents\Test1\monImage.jpg" à adapter
URLDownloadToFile 0, "https://i.stack.imgur.com/cdCSj.jpg", MonImage, 0, 0
For Each f In Worksheets
With f.PageSetup.LeftFooterPicture
.Filename = MonImage
.Height = 275.25
.Width = 463.5
.Brightness = 0.36
.ColorType = msoPictureAutomatic
.Contrast = 0.39
.CropBottom = -14.4
.CropLeft = -28.8
.CropRight = -14.4
.CropTop = 21.6
End With
f.PageSetup.LeftFooter = "&G"
Next f
End Sub