Il s'ait tout bêtement d'un filtre avancé
Sub FILTRER()
Sheets("Feuil1").Range("Tableau1[#All]").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range("A1:A2"), CopyToRange:=Range("B4:C4"), Unique:=False
End Sub
Les données sont sous forme de tableau
Mais celui ci est déclenché chaque fois que la Feuil2 est activée
Private Sub Worksheet_Activate()
FILTRER
End Sub
Il y a donc 2 lignes de code VBA en tout et pour tout !