Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Application.Intersect(Target, Range("tableau4")) Is Nothing Then Exit Sub
Cancel = True
Worksheets("Recu").Range("H2").Value = Me.Cells(Target.Row, "A")
With Worksheets("Recu")
.Activate
.PageSetup.PrintArea = "$A$1:$K$49"
.PrintOut
End With
End Sub