Vba excel active workbooks

Option Explicit

Private Sub insérer_Click()

    Dim Sh As Worksheet
    Dim classeur2 As String, classeur1 As String
    Dim nom1 As String, wb As Workbook

    MsgBox "confirmer insérer fichier : ?", vbYesNo

    ' n.b. Éviter les accents de la langue française
    ' dans les instruction même si celle-ci sont des
    ' noms de fonctions ou routine que vous avez créé.
    insérer.Enabled = False

    Fichier = Application.GetOpenFilename
    Workbooks.Open Fichier 'ouverture arborescence
    classeur1 = ActiveWorkbook.FullName
    'MsgBox classeur1

    For Each Sh In Workbooks(classeur1).Worksheets
        Workbooks(classeur1).Sheets(Sh.Name).Copy _
            After:=Workbooks("Fiche_d'entretien_OSP_2008ter.xls").Sheets(5)
    Next Sh
    ' MsgBox classeur1

    Workbooks(classeur1).Activate
    Workbooks(classeur1).Close
    Kill classeur1

End Sub
'