Bonsoir,
avec une macro événementielle, sans bouton
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If Sh.Name <> "DOSSIERS" And Left(Sh.Name, 5) <> "Feuil" Then
Sheets("DOSSIERS").Cells(Rows.Count, 2).End(xlUp).CurrentRegion.AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Sh.Range("A1").CurrentRegion, CopyToRange:=Sh.Range("B5").CurrentRegion.Resize(1), Unique:=False
End If
End Sub
il s'agit de l'exploitation du filtre avancé