Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal c As Range, Cancel As Boolean)
If c.Row > 1 And c.Value <> "" Then
With Sheets("FICHE")
.[c5] = c.Value
.[c6] = c(1, 5).Value
.[b9] = c(1, 8).Value
.[b16] = c(1, 12).Value
.Activate
.PrintPreview 'apercevoir
' .PrintOut ' imprimer
End With
Sheets("INTERVENTIONS").Activate
Cancel = True
End If
End Sub