Importer des données d'un classeur à un autre

Bonjour Tous,

J'ai une Macro, que j'ai eu de la part de "f894009" je le remercier infiniment.
J'utilise cette Macro pour importer des données d'une Feuille à une autre.
j'ai besoin de votre aide, pour que je puisse importer les deux lignes ('Date_Fichier Impr) à la Feuille "Base", comme il est déjà définie, et à une autre Feuille "MOD" d'un Classeur "MSR" préalablement fermé.

Merci d'avance.


La Macro est la suivante:

Sub Creat_List_Data()
    Dim derlig As Integer, Col_A As Range, Nb As Integer, Iter As Integer, Lig As Integer
    With Worksheets("Impr")
        derlig = .Range("A" & Rows.Count).End(xlUp).Row
        Worksheets("Base").ComboBox1.Clear
        If derlig > 1 Then
            Set Col_A = .Range("A3:A" & derlig): Nb = Application.CountIf(Col_A, "A/Pl")
            If Nb > 0 Then
                Application.EnableEvents = False
                Lig = 1
                For Iter = 1 To Nb
                    Lig = .Columns("A").Find("A/Pl", .Cells(Lig, "A"), , xlWhole).Row
                    'Ecriture ID dans Combobox1
                    With Worksheets("Base")
                        .ComboBox1.AddItem Worksheets("Impr").Range("E" & Lig) & "  -  " & Worksheets("Impr").Range("F" & Lig)
                    End With
                Next Iter

                'Date_Fichier Impr
                     Worksheets("Base").Range("C3") = .Range("D1")
                     Worksheets("Base").Range("C4") = .Range("D1")
                
                MsgBox "Creation"
            Else
                MsgBox "Attention: pas de ""A/Pl"""
            End If
        Else
            MsgBox "Colonne A de Import Vide !!!!!!!"
        End If
    End With
    Set Col_A = Nothing
    Application.EnableEvents = True
    Worksheets("Base").Activate
End Sub