Choix classeur actif vba

Sub Test()

    ' Varaible objet d'un classeur
    Dim WB_Principal As Workbook
    
    ' Instanciation de la variable pour connaître le classeur actif
    Set WB_Principal = ActiveWorkbook
    ' Amène le classeurs cible en avant plan, celui-ci devient le [ ActiveWorkbook ]
    Workbooks("Classeur2.xls").Activate
    ' Charge la valeur de la feuille 1 de la cellule H8 dans le TextBox
    ' De façon plus explicite on devrait écrire
    ' MonUserform.TextBox.Text = Sheets("Feuil1").Range("H8").value
    TextBox.text = Sheets("Feul1").Range("H8").Value
    ' Retourne au classeur de départ
    WB_Principal.Activate
    
End Sub

' Suposons que cette routine est dans le classeur Maitre
Sub Deux_Classeur()

    Dim Nom_Maitre As String
    Dim Nom_Esclave As String
    
    Nom_Esclave = "Classeur2.xls"
    
    'Sauvegarde du nom du classeur actif
    Nom_Maitre = ActiveWorkbook.Name
    ' Chagement du classeur actif
    Workbooks(Nom_Esclave).Activate
    ' Insertion d'une donnée ou
    ' autre manipulation dans le classeur actif
    Range("A1").Value = "UneValeur"
    ' Retour au classeur Maitre
    Workbooks(Nom_Maitre).Activate
    
End Sub
'

Sub ChangeFeuille()

    Dim Nom_Fle_Maitre As String
    Dim Nom_Fle_Esclave As String
    Dim Valeur As Variant
    
    Nom_Fle_Maitre = ActiveSheet.Name
    Valeur = Range("B4").Value
    Sheets(Nom_Fle_Esclave).Select
    Range("B4").Value = Valeur
    Sheets(Nom_Fle_Maitre).Select
    
End Sub
'

Sub ChangeFeuille2()

    Dim Nom_Fle_Maitre As Worksheet
    Dim Nom_Fle_Esclave As Worksheet
    Dim Valeur As Variant
    
    Sheets(1).Select
    Set Nom_Fle_Maitre = ActiveSheet
    Set Nom_Fle_Esclave = Sheets(2)
    ' Ici, même si nous avons instancié
    ' l'objet de la feuille Excel [ Sheets(2) ]
    ' la feuille active est toujours le feuille 1
    Valeur = Range("B4").Value
    Sheets(Nom_Fle_Esclave).Select
    Range("B4").Value = Valeur
    Sheets(Nom_Fle_Maitre).Select
    
End Sub
'