Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("L7:L10000")) Is Nothing Then Exit Sub
If Target.Offset(0, -11).Value = "" Then Exit Sub
If Target.Value <> "" Then
Valid = MsgBox("fiche déjà imprimée, voulez-vous continuer ?", vbYesNo)
If Valid = vbNo Then Cancel = True: MsgBox "abandon de l'impression": Exit Sub
End If
Target.Value = "D"
'si aperçu avant impression
Application.ScreenUpdating = False
Sheets("Fiche de suivi").Select
ActiveWindow.SelectedSheets.PrintPreview
Sheets("Base de données").Activate
Application.ScreenUpdating = True
Cancel = True
End Sub