Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
If Not Intersect(Target, Range("D3:D150")) Is Nothing Then
Sheets("RELEVE ANNUEL OU PARTIEL").Range("C14").Value = Target.Offset(0, -3).Value
Application.GoTo Sheets("RELEVE ANNUEL OU PARTIEL").Range("A7")
End If
Cancel = False
End Sub