Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim Lig&
If Target.Row < 2 Or Target.Row > 5 Then Exit Sub
Cancel = True
Lig = Sheets("Sheet2").Range("A" & Sheets("Sheet2").Rows.Count).End(xlUp).Row + (Abs(Sheets("Sheet2").[a1] <> ""))
With Target
If .Row > 3 Then
Sheets("sheet2").Cells(Lig, 1) = Cells(.Row, "G")
Else
Sheets("sheet2").Cells(Lig, 1) = Cells(.Row, "F")
End If
End With
End Sub