Sub Inserer_Image()
Dim Image As Variant, o As Object
Dim L As Single, T As Single, W As Single, H As Single
With ActiveCell
L = .Left
T = .Top
W = .Width
H = .Height
End With
Image = Application.GetOpenFilename
If Image <> False Then
Set o = ActiveSheet.Shapes.AddPicture(Image, True, True, L, T, W, H)
ActiveCell = Mid(Image, InStrRev(Image, "\") + 1, 999)
On Error Resume Next
o.Name = ActiveCell
If Err Then MsgBox "Photo déjà utilisée..."
End If
End Sub