Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not FromFichTech Or Not IsNumeric(Target.Offset(, 2)) Then Exit Sub
Worksheets(nomfiche).active
ActiveCell = Target.Value
ActiveCell.Offset(, 1) = Target.Offset(, 1).Value
ActiveCell.Offset(, 3) = Target.Offset(, 2).Value
End Sub