Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = [L4].Address Then
Range(Target.Value).CopyPicture Appearance:=xlScreen, Format:=xlPicture
' Cette partie ci-dessous à adapter à votre outlook
[O1].Select: Me.Paste
End If
End Sub