Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim lig As Integer
Dim F2 As Worksheet
Dim temp
Set F2 = Sheets("IMAGE")
If Not Intersect(Range("A2:G" & Range("A65000").End(xlUp).Row), Target) Is Nothing Then
lig = Target.Row
On Error Resume Next
MsgBox Cells(lig, 2) & " " & Cells(lig, 3)
temp = Cells(lig, 2) & " " & Cells(lig, 3).Value
MsgBox temp
With UserForm1
.Caption = Cells(lig, 2) & " " & Cells(lig, 3)
On Error Resume Next
With .Image1
.Picture = F2.OLEObjects(temp).Object.Picture
.AutoSize = False
.PictureSizeMode = fmPictureSizeModeStretch
End With
.Show
End With
End If
Cancel = True
End Sub