Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
With Sheets("Feuil1")
.Range("a:c").AutoFilter Field:=1, Criteria1:=ActiveSheet.Range("a1")
.Range("a1").SpecialCells(xlCellTypeConstants, 23).Copy Destination:=Range("a2")
.AutoFilterMode = False
End With
End If
End Sub