Importation de nouvelle feuille

Bonjour,

J'aimerais ajouter un boutton dans mon userform me permettant de selectionner un fichier excel dans mes repertoires puis de copier entièrement la feuille présente dedans et de la coller ensuite dans mon classeur actuel a la fin de toutes mes feuilles deja presentes.

Si possible, permettre de choisir une certaine feuille dans le classeur selectionné si il y a plusieurs feuilles dedans.

Voici en pièce jointe ce que j'ai fait pour le moment

Merci d'avance

Bonjour,

Un test à peaufiner selon les besoins en passant par un USF. Je n'ai pas désactivé la mise à jour à l'écran au cas où on souhaite voir la feuille à sélectionner sur le classeur ouvert :

Sub COPIE()
Dim FICHIER As Variant
FICHIER = Application.GetOpenFilename()
Set WB = Workbooks.Open(FICHIER)
UserForm1.Show 0
End Sub

Private Sub CommandButton1_Click()
Workbooks(WB.Name).Worksheets(CStr(Me.ComboBox1)).Copy After:=ThisWorkbook.Worksheets(ThisWorkbook.Worksheets.Count)
WB.Close False
Unload Me
MsgBox "Copie terminé", vbInformation
End Sub

Private Sub UserForm_Initialize()
Dim F%
For F = 1 To Workbooks(WB.Name).Worksheets.Count
    Me.ComboBox1.AddItem WB.Worksheets(F).Name
Next F
End Sub

Et le fichier qui va avec.

Cdlt,

Merci beaucoup c'est exactement ce que je voulais,

Désolé pour la réponse tardive ..

Encore merci