ouverture et import de feuille par usf

Private Sub CommandButton1_Click()
'recherche du classeur
Dim [COLOR="red"][B]chem[/B][/COLOR] As String
[COLOR="red"][B]chem= Application.GetOpenFilename("Classeurs Excel,*.xls")[/B][/COLOR] 
Workbooks.Open Filename:=chem
'appel de la feuil1
Set source = Workbooks.Open(chem)
source.Worsheets(1).Range("A1").Copy (ThisWorkbook.Worksheets("Feuil1").Range("a2"))
source.Close False
End Sub

Private Sub CommandButton1_Click()

    Unload Me
    chem = Application.GetOpenFilename
    classeur_chem = ActiveWorkbook.Name
    Workbooks.Open chem, 0, ReadOnly:=False
    Monclasseur = ActiveWorkbook.Name
    Workbooks(Monclasseur).Sheets("Feuil1").Copy Before:=Workbooks(classeur_chem).Sheets("Feuil1")

End Sub

Workbooks(Monclasseur).Sheets("[B]Nom de ta feuille[/B]").Copy Before:=Workbooks(classeur_chem).Sheets("[B]Nom de ta feuille[/B]")

Workbooks(Monclasseur).Sheets("nom de ta feuille").Copy Before:=Workbooks(classeur_chem).Sheets(1)

Private Sub CommandButton1_Click()
Dim FichDest As String, FichDep as string, Chem As Variant
On Error Resume Next
    FichDest = ActiveWorkbook.Name
    Chem = Application.GetOpenFilename
    If Chem = False Then Exit Sub
    Workbooks.Open Chem
    FichDep = ActiveWorkbook.Name
    Sheets("Gloubiboulga").Copy Before:=Workbooks(FichDest).Sheets("Tartampion")
    Workbooks(FichDep).Close False
    
End Sub