macro lente

Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range, T
If Target.Address <> "$A$5" Then Exit Sub
If Target.Value = "" Or Target.Count > 1 Then Exit Sub
Columns("D:E").Clear
With Sheets("Feuil2")
    Set c = .Rows(2).Find(Target.Value, , xlValues, xlWhole)
    If Not c Is Nothing Then
        T = .Range(.Cells(3, c.Column), .Cells(65000, c.Column + 1).End(xlUp)).Value
        ActiveSheet.Range("D12").Resize(UBound(T, 1), UBound(T, 2)) = T
    End If
End With
End Sub