Position de shapes dans une cellule

Sheets("Feuil1").Select
  ActiveSheet.Shapes("picture1").Select
    Selection.Copy
    
  Sheets("Feuil2").Select
      ActiveSheet.Paste
    
   With MyPicture.Shapes("picture1")
            .Top = Range("C1").Top + 10   'position verticale de l'image dans le document
       .Left = Range("C1").Left + 35    'position horizontale de l'image dans le document
        
   End With

 Range("B15").Select 'selection de la cellule
    ActiveSheet.Pictures.Insert("F:\fichier \fleche.gif").Select 'on insère l'image
    With Selection.ShapeRange 'on indique la position de l'image
        .Left = ActiveCell.Left + 20
        .Top = ActiveCell.Top
    End With