Paramètres macro dans un formulaire

Sub Choix_Fichier()

    'si repertoire connu
    'Chdir="C:\mon_repertoire"

    Fichier_Ouvrir = Application.GetOpenFilename("Fichiers Excel (*.xls), *.xls")

    If Fichier_Ouvrir <> False Then
        nom_Fichier = Right(Fichier_Ouvrir, InStrRev(Fichier_Ouvrir, "\"))
        Workbooks.Open (filetoopen)
    Else
    '
    End If
End Sub

Sub traitement_enregistrements()
    Dim derlig1 As Integer, derlig2 As Integer
    Dim Dico1, Dico2, cel, Plage_ID2, Plage_ID1
    Dim CeClasseur, Fichier_Ouvrir, nom_Fichier As String
    
    Application.ScreenUpdating = False
    
    CeClasseur = ThisWorkbook.Name
    
    'si repertoire connu
    'Chdir="C:\mon_repertoire"
    'boite a dialogue
    Fichier_Ouvrir = Application.GetOpenFilename("Fichiers Excel (*.xls), *.xls")
    'test si fichier choisi
    If Fichier_Ouvrir <> False Then
        nom_Fichier = Right(Fichier_Ouvrir, Len(Fichier_Ouvrir) - InStrRev(Fichier_Ouvrir, "\"))
    Else
        MsgBox ("PAS DE FICHIER SELECTIONNE!!!!!")
        Exit Sub
    End If
    
    Set Dico1 = CreateObject("Scripting.Dictionary")
    Set Dico2 = CreateObject("Scripting.Dictionary")
    
    'dico2 pour comparaison enregistrement(s) en trop(s) fichier1
    With Worksheets("feuil1")
        derlig2 = .Range("A" & Rows.Count).End(xlUp).Row
        Set Plage_ID2 = .Range("A2:A" & derlig2)
        For Each cel In Plage_ID2
            Dico2.Add cel.Value, cel.Value
        Next cel
    End With
    
    'ouverture fichier1.xls
    Set fichier1 = Workbooks.Open(Fichier_Ouvrir)
    
    With Workbooks(nom_Fichier).Worksheets("feuil1")
        lig = 2
        Do While .Cells(lig, 1) <> ""
            If Not Dico2.exists(Cells(lig, 1).Value) Then
                'suppression ligne
                .Rows(lig).Delete
            Else
                lig = lig + 1
            End If
        Loop
        'Dico pour ajout enregistrement manquant fichier1 dans fichier2
        derlig1 = .Range("A" & Rows.Count).End(xlUp).Row
        Set Plage_ID1 = .Range("A2:A" & derlig1)
        For Each cel In Plage_ID1
            If Not Dico1.exists(Cells(lig, 1).Value) Then
                Dico1.Add cel.Value, cel.Value
            End If
        Next cel
        'boucle pour ajout manquant
        For Each cel In Plage_ID2
            If Not Dico1.exists(cel.Value) Then
                derlig1 = derlig1 + 1
                addr = cel.Row
                .Range("A" & derlig1) = Workbooks("fichier2.xls").Worksheets("feuil1").Range("A" & addr)
                .Range("B" & derlig1) = Workbooks("fichier2.xls").Worksheets("feuil1").Range("B" & addr)
                .Range("D" & derlig1) = Workbooks("fichier2.xls").Worksheets("feuil1").Range("C" & addr)
            End If
        Next cel
    End With
    
    Set Dico1 = Nothing
    Set Dico2 = Nothing
    
    Application.ScreenUpdating = True
End Sub