Afficher les images dans Excel

Sub mettre_hypertexte() 
Dim Derlig As Integer 
     Derlig = Columns("D").Find("*", , , , , xlPrevious).Row 
     Application.screenupdating = False 
     For cptr = 2 To Derlig 
          ActiveSheet.Hyperlinks.Add Anchor:=Cells(cptr, 4), Address:="http://www.tubconcept.fr/visuels/" & Cells(cptr, 5) 
     Next 
End Sub

Sub mettre_hypertexte() 
Dim Derlig As Integer 
     Derlig = Columns("D").Find("*", , , , , xlPrevious).Row 
     Application.ScreenUpdating = False 
     For cptr = 2 To Derlig 
          ActiveSheet.Hyperlinks.Add Anchor:=Cells(cptr, 4), Address:="http://www.tubconcept.fr/visuels/" & Cells(cptr, 4), _ 
          TextToDisplay:=Cells(cptr, 4).Value 
     Next 
End Sub

Sub mettre_imageweb() 
Dim Derlig As Integer, lien As String, cptr As Integer 
Dim image As Picture, cellule As Range 
     'initialisations 
     Derlig = Columns("D").Find("*", , , , , xlPrevious).Row 
     Application.ScreenUpdating = False 
     'parcourt la liste 
     For cptr = 2 To Derlig 
          ' mémorise url 
          lien = "http://www.tubconcept.fr/visuels/" & Cells(cptr, 4) 
           Set cellule = Cells(cptr, 4) 
           Set image = ActiveSheet.Pictures.Insert(lien) 
          'insere l'mage web dans la liste du matos 
           With image.ShapeRange 
               .Top = cellule.Top + 1 
               .Left = cellule.Left + 1 
               .Height = cellule.Height - 10 
               .Width = cellule.Width - 2 
               .LockAspectRatio = msoFalse 'garde les proportions de l'original 
          End With 
     Next 
End Sub