VBA afficher une image dans une cellule

'add picture
Application.ScreenUpdating = False
slave.Activate
Sheets("sheet3").Select


Set plage = Columns("J").Rows("11:400")
For Each cell In plage
cell.Select
  
If Not Selection.Value = "" Then
name_picture = Selection.Value
rpath = fpath & "Addons\Station Service\patrol_picture\" & name_picture & ".jpg"
Selection.Offset(0, 3).Select

    Dim L As Single, T As Single, W As Single, H As Single
 
    L = Selection.Left
    T = Selection.Top
    W = Selection.Width
    H = Selection.Height
 
   ' rpath = Application.GetOpenFilename
    If rpath <> False Then
   
        Sheets(Sheet3).Shapes.AddPicture rpath, True, True, L, T, W, H
    End If

End If
Next
Application.ScreenUpdating = True