Macro pour ajouter une feuille d'un autre classeur

Bonjour,

Je cherche à créer une macro que j'associerai à un bouton qui permettrai d'aller chercher un fichier excel (un classeur) et d'en importer sa feuille.

Malgré plusieurs recherche je ne vois vraiment pas comment faire ! :/

Merci d'avance pour votre aide !

Bonjour

Sub tt()
Set WB2 = ActiveWorkbook
thefile = Application.GetOpenFilename
Set WB = Workbooks.Open(thefile)

WB.Sheets(1).Copy After:=WB2.Sheets(Sheets.Count)
End Sub

Remplace Sheets(1) par Sheets("Nom de la feuille")