Insérer une image dans une cellule excel

Sub image_dans_commentaire()
' simplifié (supprimé choix photo) à partit d'une démo d' Isabelle, mpfe, trouvé sur site Fred Sigonneau (merci)
'http://frederic.sigonneau.free.fr
  Range("B2").AddComment
  With Range("B2").Comment
        chemin = ThisWorkbook.Path & "\"
        .Shape.Fill.UserPicture chemin & "virageadroite.jpg"
  End With

End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Static flag As Boolean
Dim Image As Picture
Dim design As String
If flag = False Then
    If Intersect(Target, Range("A3")) Is Nothing Then: Exit Sub
    Range("B3").Select
    
    design = ThisWorkbook.Path & "\virageadroite.jpg"
    Set Image = ActiveSheet.Pictures.Insert(design)
    With Image.ShapeRange
        .Name = "cartepost"
         .Height = Range("B3").Height
        .Width = Range("B3").Width
        .LockAspectRatio = msoFalse
    End With
    flag = True
    Range("A3") = "cacher"
Else
    ActiveSheet.Shapes("cartepost").Delete
    flag = False
    Range("A3") = "montrer"
    Range("A1").Select
End If
End Sub