Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
ligne = Selection.Row
SendKeys Cells(ligne, 1)
If Application.Dialogs(xlDialogInsertPicture).Show Then
With Selection
.ShapeRange.LockAspectRatio = msoFalse
.Width = Target.Width - 3
.Height = Target.Height - 3
.Placement = 1
.PrintObject = True
End With
End If
End Sub