Bonjour et
Difficile de te montrer une solution sur un fichier vide de données.
Néanmoins, tu peux utiliser ceci :
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If Left(Sh.Name, 1) = "_" And Right(Sh.Name, 1) = "_" Then
Sheets("data").Cells(Rows.Count, 1).End(xlUp).CurrentRegion.AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Sh.Range("A1").CurrentRegion, CopyToRange:=Sh.Range("A6").CurrentRegion.Resize(1), Unique:=False
End If
End Sub
Cette macro s'applique à tous onglets commençant par _
.
Une formule en A2 permet de reprendre le nom de l'onglet comme critère de filtre.