Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim DerLig As Long: DerLig = Feuil1.Range("I" & Rows.Count).End(xlUp).Row
If Not Intersect(Target, Range("I5:I" & DerLig)) Is Nothing Then Cancel = True: [E4] = Target
End Sub