Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
'
Dim MaPlage As Range
If Left(Sh.CodeName, 5) <> "Feuil" Then Exit Sub
If Target.Row <> 2 Then Exit Sub
If Target.Column < 2 Or Target.Column > 7 Then Exit Sub
Cancel = True
Set MaPlage = Sh.Range("A3:A20").Offset(0, Target.Column - 1)
Application.ScreenUpdating = False
Range("t_OM[Travail]").Value2 = MaPlage.Value2
Sheets("OM").PrintPreview
End Sub