Filtrer un tableau avec la valeur de la cellule sélectionnée d'une colonne

Bonjour la communauté,

Je suis débutante VBA et j'ai un problème.

J'ai un fichier avec 2 feuilles:

1ère feuille ("INFO") contient une colonne avec une liste déroulante(textes) dans chaque cellule. Je veux à ce que chaque fois je sélecctionne une cellule et que j'alimente avec les choix de la liste déroulante, la macro applique un filtre sur le tableau dans la 2ème feuille("OCCUPANCY" en fonction de la valeur de la cellule sélectionnée. Surtout il faut que ça se répète pour toutes les cellules sélectionnées

j'ai essayé ce code mais ça ne marche pas

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Target.Address = Worksheets("INFO").Range("B") Then
Worksheets("OCCUPANCY").Select
Range("C1").Select
Selection.AutoFilter
ActiveWindow.ScrollColumn = 5
ActiveSheet.Range("$A$1:$G$111").AutoFilter Field:=6, Criteria1:=Worksheets("INFO").Range("B" & ActiveCell.Row).Value
End Sub

Merciii d'avance pour votre temps

Bonjour,

À tester :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(Target, Me.Range("B:B")) Is Nothing Then ' Target est dans la colonne B
        Dim ws As Worksheet
        Set ws = ThisWorkbook.Sheets("OCCUPANCY")
        ws.Range("$A$1:$G$111").AutoFilter Field:=6, Criteria1:=Target.Value
    End If
End Sub

Notez bien que ce code doit être placé dans le module de la feuille de calcul "INFO" (pas dans un module général ou dans celui de "ThisWorkbook") pour fonctionner correctement. Si vous avez besoin de plus d'explications n'hésitez pas.