Bonjour …
Adaptation pour des tableaux à plus d’une colonne : avec une évènementielle dans la page de codes de l’onglet contenant le tableau TB à filtrer ou pas selon la cellule sélectionnée (titre1 pour filtrer sinon ailleurs).
Private Sub Worksheet_SelectionChange(ByVal R As Range)
Dim n As Long
If R.Address <> [TB].Item(0, 1).Address Then [TB].EntireRow.Hidden = 0: Exit Sub
[TB].EntireRow.Hidden = 0
For n = [TB].Rows.Count To 1 Step -1
[TB].Item(n, 1).EntireRow.Hidden = Application.CountIf([TA].Columns(1), [TB].Item(n, 1)) = 0
Next
End Sub
Simple remarque JFL : ta formule contient les [..] tant décriés mais c’est plutôt le nombre de formules dans le classeur qui peut être pénalisant au point de vue durée du traitement. Power Query (quand on le domine), permet de gérer les données de tableaux structurés avec peu de VBA et plus rapidement.