Private Sub Worksheet_Change(ByVal Target As Range)
Dim TabTemp As Range
Dim L As Long, LR As Long
Dim cell As Range
Dim data1 As String
If Target.Count > 1 Then Exit Sub
If Trim(Target.Value) = "" Then Exit Sub
If Target.Address <> "$E$4" Then Exit Sub
data1 = Target.Value
'Efface zone résultat et mémorise le numéro de la première ligne de résultat
Range("A11:J101").ClearContents
LR = 11
'Charge les données dans un tableau variant temporaire
With Sheets("Feuil1")
L = .Range("a65536").End(xlUp).Row
'TabTemp = .Range(.Cells(3, 7), .Cells(L, 7))
For Each cell In Sheets("Feuil1").Range("g3:g" & L)
If cell.Value = Target.Value Then
dl1 = Sheets("Feuil2").Range("a65536").End(xlUp).Row + 1
Sheets("Feuil2").Range("a" & dl1) = .Range("E" & cell.Row)
Sheets("Feuil2").Range("b" & dl1) = .Range("a" & cell.Row)
Sheets("Feuil2").Range("c" & dl1) = .Range("h" & cell.Row)
Sheets("Feuil2").Range("i" & dl1) = .Range("i" & cell.Row)
End If
Next cell
End With
End Sub