Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column > 1 Or Target.Count > 1 Then Exit Sub
Ligne = Target.Row
Rows(Ligne & ":" & Ligne).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Range("A" & Ligne) = Date
Range("A" & Ligne + 1).Select
End Sub