Compléter lignes depuis autre classeur (base de données ?)

Private Sub TextBox1_LostFocus()
TextBox1 = ""
ListBox1.Visible = False
End Sub

Private Sub TextBox1_LostFocus()
If TextBox1 = "" Then ListBox1.Visible = False Else ListBox1.Visible = True
End Sub

Private Sub Workbook_Open()
    Dim derlig As Long
    On Error GoTo sortie
'ICI LA LIGNE MODIFIEE :
    If FichierOuvert("bdd.xlsx") = False Then Workbooks.Open ThisWorkbook.Path & "\bdd.xlsx" 'la ligne qui pose problème
    With Workbooks("bdd.xlsx").Sheets("Feuil1")
        derlig = .Range("A" & Rows.Count).End(xlUp).Row
        Sources = .Range("A2:C" & derlig).Value
    End With
    ActiveWorkbook.Close SaveChanges:=True
    With Sheets("Feuille de présence")
        .ListBox1.Visible = False
    End With
    supervision
    Exit Sub
sortie:
        MsgBox "Désolé mais la base de données n'a pas été trouvé." & vbLf & "Pour utiliser une base de données, merci de placer le fichier bdd.xlsx dans le dossier : " & ThisWorkbook.Path & "" & vbLf & "Plus d'aide : www.lanimetvous.com"
    On Error GoTo 0
End Sub

Function FichierOuvert(NomFic As String) As Boolean
Dim Wbk As Workbook
FichierOuvert = False
For Each Wbk In Application.Workbooks
    If Wbk.Name = NomFic Then FichierOuvert = True: Exit For
Next Wbk
End Function

Option Explicit

Private Sub Workbook_Open()
    Dim derlig As Long
    On Error GoTo sortie
    If FichierOuvert("bdd.xlsx") = False Then Workbooks.Open ThisWorkbook.Path & "\bdd.xlsx" 'la ligne qui pose problème
    With Workbooks("bdd.xlsx").Sheets("Feuil1")
        derlig = .Range("A" & Rows.Count).End(xlUp).Row
        Sources = .Range("A2:C" & derlig).Value
    End With
    ActiveWorkbook.Close SaveChanges:=True
    With Sheets("Feuille de présence")
        .ListBox1.Visible = False
    End With
    supervision
    Exit Sub
sortie:
        MsgBox "Désolé mais la base de données n'a pas été trouvé." & vbLf & "Pour utiliser une base de données, merci de placer le fichier bdd.xlsx dans le dossier : " & ThisWorkbook.Path & "" & vbLf & "Plus d'aide : www.lanimetvous.com"
    On Error GoTo 0
End Sub

Function FichierOuvert(NomFic As String) As Boolean
Dim Wbk As Workbook
FichierOuvert = False
For Each Wbk In Application.Workbooks
    If Wbk.Name = NomFic Then FichierOuvert = True: Exit For
Next Wbk
End Function

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    finSupervision
End Sub


Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
    If Sh.Type = xlWorksheet Then
        Sh.Protect "alsh", DrawingObjects:=True, Contents:=True, Scenarios:=True _
            , AllowInsertingColumns:=True, AllowInsertingRows:=True, _
              AllowInsertingHyperlinks:=True
    Else ' Graph
        Sh.Protect "alsh", DrawingObjects:=True, Contents:=True, Scenarios:=True
    End If
End Sub

If Wbk.Name = NomFic Then FichierOuvert = True: Exit For