Onglets Listbox

Salut! c'est encore moi!

J'aimerais pouvoir lancer une macro à partir d'une sélection de feuil dans une listbox.

Je m'explique:

j'ai une macro pour copier le contenu de la 6e feuille sur la 1ere feuille:

Sub CopyArchivedContent()
Sheets("Feuil1").Select
Sheets("Feuil1").Unprotect
Sheets(6).Range("A1:G61").Copy
Sheets(1).Activate
Range("A1:G61").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Sheets("Feuil1").Protect
'Sheets(6).Cells.Copy Destination:=Sheets(1).Cells
End Sub

Mas j'aimerais pouvoir, à partir d'une listbox dans un userform, pouvoir sélectionner une feuille ouverte .... puis lancer cette macro mais à la place de Sheets(6) ... ce serait qqchose du genre listbox.selection.cells.copy ................

Ceci est l'actuel code de mon userform

Private Sub UserForm_Initialize()

    Dim feuille As Worksheet
    For Each feuille In ActiveWorkbook.Worksheets
    If feuille.Name <> "Feuil1" And feuille.Name <> "Feuil2" And feuille.Name <> "Feuil3" And feuille.Name <> "Clients" And feuille.Name <> "BL" And feuille.Visible = True Then

        ListBox1.AddItem feuille.Name

        End If
    Next

End Sub

Pour l'instant j'ai

Sub CopyArchivedContent2()
Dim SelectionFeuille As String
SelectionFeuille = Me.ListBox1.Value

Sheets("Feuil1").Select
Sheets("Feuil1").Unprotect
Sheets(SelectionFeuille).Range("A1:G61").Copy
Sheets(1).Activate
Range("A1:G61").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Sheets("Feuil1").Protect
'Sheets(6).Cells.Copy Destination:=Sheets(1).Cells
End Sub

Merci a+

C'est bon mon dernier code fonctionnait j'avais juste mal configuré mon bouton de commande ... je laisse le thread open ca peut toujours servir de référence dans le futur!