récupérer des infos d'autres fichiers

[babap1]

Hello le forum,

à partir d'un fichier Excel donné, j'aimerai récupérer des infos qui sont dans les cellules A1 des plusieurs fichiers CSV. Pour cela, je crée une fonction Worbook_Open() de cette manière :

Sub Workbook_open()
    Dim CsvFiles As String
    Dim CsvPathFolder As String
    Dim fso As Object
    
    CsvPathFolder = GetDirectory("Select the folder, please")
     
    Set fso = CreateObject("Scripting.FileSystemObject")
   
    CsvFiles = Dir(CsvPathFolder & "\*.csv")
    
    Do While CsvFiles <> ""
        Application.Workbooks.Open
...
    Loop
    
End Sub

mais ensuite de ça je suis bloqué...
Est-ce que quelqu'un peut me donner un coup de pouce ?

Merci d'avance,
Bap