Sub InsererImage()
Dim NomCompletImage As String
Dim Sh As Shape
Dim Left As Integer
Dim Top As Integer
Dim Width As Integer
Dim Height As Integer
Left = [F5].Left
Top = [F5].Top
Width = [F5].Width
Height = [F5].Height
On Error Resume Next
ActiveSheet.Shapes("MonImage").Delete
On Error GoTo 0
Set Sh = ActiveSheet.Shapes.AddShape(msoShapeRectangle, Left, Top, Width, Height) 'left, top, width, heigth
Sh.Name = "MonImage"
NomCompletImage = "H:\Téléchargements\20200805_161153.jpg"
Sh.Fill.UserPicture NomCompletImage
End Sub