Macro pour insertion automatique d'images venant d'une URL / Excel 2016

Option Explicit
'insere image
Sub insertionimage()
Dim plage As Range
Set plage = Range("A16:D24") ' a adapter
place_l_image_dans plage, ActiveSheet.Pictures.Insert(Range("A16").Value) ' a adapter
End Sub
'la sub calcule en touchant a la shape
Sub place_l_image_dans(RnG As Range, Shp As Picture)
      Dim ratio, w, h
      With Shp
        .ShapeRange.LockAspectRatio = msoTrue    ' lock leratio indéformable
        ratio = .Width / .Height     ' calcul ratio
        w = RnG.Width       ' width  range
        h = RnG.Height      ' height range
        .Height = h - (2 / ratio)
        .Left = RnG.Left + ((RnG.Width - .Width) / 2)
        .Top = RnG.Top + ((RnG.Height - .Height) / 2)
        .Placement = 1
    End With
End Sub
'supprime image
Sub delete()
Dim x As Shape
 For Each x In ActiveSheet.Shapes
        If x.Type = msoPicture Then x.delete
    Next x
End Sub

Option Explicit
'se déclenche au clic droit pour insérer une image
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
'colonne A
If Not Application.Intersect(Target, Range("A:A")) Is Nothing Then
Dim ligne As Long
Dim colonne As Integer
Dim coldebut As String
Dim colfin As String
 ligne = ActiveCell.Row
 Dim plage As Range
On Error Resume Next
Set plage = Range("A" & ligne & ":D" & ligne + 8) ' chemin complet du lien
place_l_image_dans plage, ActiveSheet.Pictures.Insert(Range("A" & ligne).Value) ' chemin complet du lien
 End If
 'colonne de AG à BG
 If Not Application.Intersect(Target, Range("AG:BG")) Is Nothing Then
 colonne = ActiveCell.Column
 coldebut = Col2Let(colonne)
 colfin = Col2Let(colonne + 2)
On Error Resume Next
Set plage = Range(coldebut & 4 & ":" & colfin & 8) ' chemin complet du lien
place_l_image_dans plage, ActiveSheet.Pictures.Insert(Range(coldebut & 4).Value) ' chemin complet du lien
 End If
End Sub
'conversion colonne chiffre en lettre
Public Function Col2Let(ByVal numCol As Long) As String
Col2Let = Split(Cells(, numCol).Address, "$")(1) '$A$1
End Function
'la sub calcule en touchant a la shape
Sub place_l_image_dans(RnG As Range, Shp As Picture)
      Dim ratio, w, h
      With Shp
        .ShapeRange.LockAspectRatio = msoTrue    ' lock leratio indéformable
        ratio = .Width / .Height     ' calcul ratio
        w = RnG.Width       ' width  range
        h = RnG.Height      ' height range
        .Height = h - (2 / ratio)
        .Left = RnG.Left + ((RnG.Width - .Width) / 2)
        .Top = RnG.Top + ((RnG.Height - .Height) / 2)
        .Placement = 1
         .Name = "monimage"
    End With
End Sub