Macro automatique avec formule dans cellule

Bonjour,

J'espère être assez clair :

Je souhaite exécuter une macro dans une feuille qui me permet de filtrer toutes les lignes de mon tableau à partir de la valeur d'une cellule qui elle même est déterminer par une formule qui vient chercher la valeur d'une cellule d'une autre feuille. Malheureusement si je ne clique pas sur la cellule, la macro ne s'exécute pas.

Private Sub Worksheet_Change(ByVal Target As Range)

' Si le changement à lieu en cellule "C3"
If Not Application.Intersect(Target, Range("C3")) Is Nothing Then
ThisWorkbook.Sheets("Pré-requis").AutoFilterMode = False
If Target.Value = "TST AER" Then
' Filtre en Caisse TST AER, sur la colonne 9, avec comme critère la valeur entrée
ThisWorkbook.Sheets("Pré-requis").Range("A7").AutoFilter Field:=9, Criteria1:=Target.Value
End If
If Target.Value = "TST EME" Then
' Filtre en Caisse TST EME, sur la colonne 9, avec comme critère la valeur entrée
ThisWorkbook.Sheets("Pré-requis").Range("A7").AutoFilter Field:=9, Criteria1:=Target.Value
End If
If Target.Value = "TST SOU" Then
' Filtre en Caisse TST SOU, sur la colonne 9, avec comme critère la valeur entrée
ThisWorkbook.Sheets("Pré-requis").Range("A7").AutoFilter Field:=9, Criteria1:=Target.Value
End If
If Target.Value = "TST EP" Then
' Filtre en Caisse TST EP, sur la colonne 9, avec comme critère la valeur entrée
ThisWorkbook.Sheets("Pré-requis").Range("A7").AutoFilter Field:=9, Criteria1:=Target.Value
End If
If Target.Value = "TST BAT" Then
' Filtre en Caisse TST BAT, sur la colonne 9, avec comme critère la valeur entrée
ThisWorkbook.Sheets("Pré-requis").Range("A7").AutoFilter Field:=9, Criteria1:=Target.Value
End If
If Target.Value = "TST TER" Then
' Filtre en Caisse TST TER, sur la colonne 9, avec comme critère la valeur entrée
ThisWorkbook.Sheets("Pré-requis").Range("A7").AutoFilter Field:=9, Criteria1:=Target.Value
End If
If Target.Value = "BR" Then
' Filtre en Caisse BR, sur la colonne 9, avec comme critère la valeur entrée
ThisWorkbook.Sheets("Pré-requis").Range("A7").AutoFilter Field:=9, Criteria1:=Target.Value
End If
If Target.Value = "BC" Then
' Filtre en Caisse BC, sur la colonne 9, avec comme critère la valeur entrée
ThisWorkbook.Sheets("Pré-requis").Range("A7").AutoFilter Field:=9, Criteria1:=Target.Value
End If
If Target.Value = "Electricien" Then
' Filtre en Caisse Electricien, sur la colonne 9, avec comme critère la valeur entrée
ThisWorkbook.Sheets("Pré-requis").Range("A7").AutoFilter Field:=9, Criteria1:=Target.Value
End If
If Target.Value = "BE" Then
' Filtre en Caisse BE, sur la colonne 9, avec comme critère la valeur entrée
ThisWorkbook.Sheets("Pré-requis").Range("A7").AutoFilter Field:=9, Criteria1:=Target.Value
End If
If Target.Value = "TEL" Then
' Filtre en Caisse TEL, sur la colonne 9, avec comme critère la valeur entrée
ThisWorkbook.Sheets("Pré-requis").Range("A7").AutoFilter Field:=9, Criteria1:=Target.Value
End If
End If
End Sub

Pouvez-vous m'aider ? Sachant qu'il y a certainement moyen de simplifier la macro !!!

Merci par avance.