XL 2019 Formule pour extraire les données d'une colonne en fonction d'une autre

Bana XIII à dit:

Salut à tous!

J'ai une question à soumettre à la communauté.

j'ai une feuille contenant un tableau élaboré des salariés. La colonne "B" contient
les noms, et la colonne "D" contient leurs statuts qui sont de trois (03) niveaux: "Permanant",
"Essaie", "Formation".

Mon souhait, c'est d'extraire sur 3 feuilles différentes, les noms des salariés suivant les 3
catégories de la colonne "D" 'c'est à dire, les salariés permanant sur une feuille, ceux qui
sont en essaie sur une autre, et les apprentis en formation sur une autre.

NB: Je veux extraire uniquement les noms alphabétiquement. Y a t'il une formule qui pourra
me contenter?

Bien à tous!

Cliquez pour agrandir...

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    If Sh.Name <> "Permanent" And Sh.Name <> "Essaie" And Sh.Name <> "Formation" Then Exit Sub
    Application.ScreenUpdating = False
    Sh.Cells.Clear
    With Sheets("Base")
        If .FilterMode Then .ShowAllData
        With .UsedRange
            .AutoFilter Field:=4, Criteria1:=Sh.Name
            .Columns("A:C").SpecialCells(xlCellTypeVisible).Copy Sh.[a1]
            .AutoFilter
        End With
    End With
End Sub