Option Explicit
Sub InsertImage()
Dim ws As Worksheet
Dim imagePath As String
Dim imgLeft As Double
Dim imgTop As Double
Set ws = Feuil1
imagePath = ThisWorkbook.Path & "\photos\" & [C4].Text & ".jpg"
imgLeft = ws.[k1].Left
imgTop = ws.[k1].Top
ws.Shapes.AddPicture _
Filename:=imagePath, _
LinkToFile:=msoFalse, _
SaveWithDocument:=msoTrue, _
Left:=imgLeft, _
Top:=imgTop, _
Width:=-1, _
Height:=-1
End Sub