XL 2021 formule pour une feuille

Mouchette à dit:

Bonjour,

Est ce qu'une personne peut m'aider, à me dire la formule pour mon tableau en pièce jointe,
J'ai un tableau de données, et je souhaite que sur les feuilles les lignes destinées aux personnes,
se mettre automatiquement,
Merci beaucoup pour votre aide

Cliquez pour agrandir...

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    With Sheets("BASE")
        If IsNumeric(Application.Match(Sh.Name, .[a:a], 0)) Then
            Sh.Cells.Clear
            .UsedRange.AutoFilter Field:=1, Criteria1:=Sh.Name
            .UsedRange.SpecialCells(xlCellTypeVisible).Copy Sh.[a1]
        End If
        .AutoFilterMode = False
    End With
End Sub

danielco à dit:

Si TEXTE.APRES n'existe pas dans ta version :

VB:

=FILTRE(BASE!A:H;BASE!A:A=STXT(CELLULE("nomfichier";A1);CHERCHE("]";CELLULE("nomfichier";A1))+1;9^9))

Daniel

Cliquez pour agrandir...