Filtrer lignes tableau en fct valeur cellule et compilation tableau

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Address(0, 0) = "B2" Then
    Call Filtrage
  End If
End Sub

Sub Filtrage()
  Dim VFiltre As String, ShtT As Worksheet
  ' Initialisation des variables
  ' Récupéré la valeur en MAJUSCULE du nom
  VFiltre = UCase(Sheets("Presentation").Range("B2").Value)
  ' Définir la feuille de filtrage
  Set ShtT = Sheets("Tableau commun pour A B C D")
  ' Si une valeur de filtre a été définie
  If VFiltre <> "" Then
    ShtT.Range("A1").AutoFilter Field:=1, Criteria1:="=*" & VFiltre & "*"
    MsgBox "Filtre activé pour : " & VFiltre
  Else
    ShtT.Range("A1").AutoFilter Field:=1
    MsgBox "Filtre désactivé !"
  End If
End Sub