Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
Dim crit As String, Lig As Long
With ActiveSheet
crit = .Range("$A$1")
Lig = .Cells(Rows.Count, 1).End(xlUp).Row
.Range("$A$5:$C$" & Lig).AutoFilter Field:=1, Criteria1:=crit
End With
End If
End Sub