Afficher/Masquer des lignes en fonction liste deroulante

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$A$9" Then Exit Sub 'si le changement a lieu ailleurs qu'en A9, sort de la procédure
ActiveSheet.Rows.Hidden = False 'affiche toutes les lignes de l'onglet
If Target.Value = "" Then Exit Sub 'si A9 est effacée, sort de la procédure
Application.ScreenUpdating = False 'masque les rafraîchissements d'écran
For I = 10 To Cells(Application.Rows.Count, 1).End(xlUp).Row 'boucle de 10 à la derniere ligne éditée de la colonne 1 (=A)
    If Cells(I, 1).Value <> Target.Value Then Rows(I).Hidden = True 'si la cellule en colonne A de la ligne I n'est pas égale à A9, masque la ligne
Next I 'prochaine ligne de la boucle
Application.ScreenUpdating = True 'affiche les rafraîchissements d'écran
End Sub