Bonjour,
A mettre dans le module de la feuille :
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Plage As Range
If Target.Address(0, 0) <> "A13" Then Exit Sub
Set Plage = Range(Cells(1, 1), Cells(Rows.Count, 5).End(xlUp))
Plage.AutoFilter
Plage.AutoFilter 5, "=" & Target.Value
End Sub