Excel / VB MAJ Fichier par un autre fichier

Sub MAJ()
Dim ws As Worksheet
Dim lig As Long
Dim str As String

    Set ws = Worksheets(1)
    lig = 2
    While ws.Range("A" & lig).Value <> ""
        str = queryOpen(ws.Range("A" & lig).Value)
        ws.Range("B" & lig).Value = str
    lig = lig + 1
    Wend
    
End Sub

Function queryOpen(ByVal Id As Long) As String
    Dim Source As ADODB.Connection
    Dim Requete As ADODB.Recordset
    Dim Fichier As String, xSQL As String
    Dim i As Long
    
    Fichier = "C:\Fichier2.xls" 'Mettre le chemin complet de la base
    
    Set Source = New ADODB.Connection
    Source.Open "Provider = Microsoft.Jet.OLEDB.4.0;" & _
        "data source=" & Fichier & ";" & _
        "extended properties=""Excel 8.0;HDR=Yes"""
    
    xSQL = "SELECT [Feuil1$].FACTURE PAYEE FROM [Feuil1$] " & _
        "WHERE [Feuil1$].ID CLIENT =" & Id
    
    Set Requete = New ADODB.Recordset
    Set Requete = Source.Execute(xSQL)
    
    queryOpen = Requete.fields(0)
    
    Requete.Close
    Source.Close
    
End Function

Private Sub Workbook_Open()
    Module1.MAJ
End Sub