Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, [I1]) Is Nothing Then
Application.ScreenUpdating = False
Dim DL%, i%, Ligne%, T
DL = Range("B65500").End(xlUp).Row
T = Range("B2:D" & DL)
Range("I2:I" & DL).ClearContents: Ligne = 2
For i = 1 To UBound(T)
If T(i, 1) = Target Or T(i, 2) = Target Then
Cells(Ligne, "I") = T(i, 3)
Ligne = Ligne + 1
End If
Next i
End If
End Sub