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
Sheets("Fiche de Suivi").Range("D1").Value = Target.Row
Cancel = True
End Sub