salutation j'ai ce code vba

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$3" Then
    Sheets("base de donnes").Range("A3:X10000").AdvancedFilter Action:= _
    xlFilterCopy, CriteriaRange:=[A2:A3], CopyToRange:=[A8:X8]
End If
End Sub
ça marche très bien mais le souci même si la cellule A3 et vide après la recherche tous les noms restent toujours affichés ?
je veux que lorsque j'efface les lettres saisies dans la cellule A3, tous redeviennent comme avant, vides.
amicalement