XL 2016 créer une liste sur le 2e onglet en cochant le 1er onglet

shitoryu à dit:

Bonjour,
Je souhaite créer une liste de noms sur le 2e onglet à partir de la liste de noms qui est sur le 1er onglet.

Deux besoins :
- L'idée serait de cocher certains noms sur le 1er onglet et qu'ils puissent s'insérer à la suite des autres noms déjà présents sur le 2e onglet.
- l'autre difficulté, c'est que les noms dans le 2e onglet ne sont pas obligatoirement issus de la liste du 1er onglet.

l'ordre d'affichage n'est pas important, mais cela doit pouvoir s'enchaîner.

Auriez-vous une idée ?
En vous remerciant pour votre aide.
S.

Cliquez pour agrandir...

Private Sub Worksheet_Activate()
Application.ScreenUpdating = False
    With Feuil1
        Dim Plage, Lig&
        Lig = Cells(Rows.Count, "A").End(xlUp).Row + 1
        Set Plage = .[a2].CurrentRegion
        Plage.AutoFilter Field:=1, Criteria1:="<>"
        Plage.Offset(1, 1).Resize(Plage.Rows.Count - 1, Plage.Columns.Count - 1).SpecialCells(xlCellTypeVisible).Copy Feuil2.Cells(Lig, 1)
    End With
    Plage.AutoFilter
    [a2].CurrentRegion.RemoveDuplicates Columns:=Array(1, 2), Header:=xlYes
End Sub