XL 2019 copier des données à partir d'un autre fichier excel VBA

Sub Importerdonnées()

    Dim filePath As String
    Dim fileName As String
    Dim sourceSheet As Worksheet
    Dim targetSheet As Worksheet
    
 
    filePath = ActiveWorkbook.Path & "\"
    
    fileName = Dir(filePath & "*.xlsx")
    
    If fileName = "" Then
        MsgBox "Aucun fichier Excel n'a été trouvé dans ce dossier.", vbExclamation, "Erreur"
        Exit Sub
    End If
    
  
    Set sourceSheet = Workbooks.Open(filePath & fileName).Worksheets("Feuil1")
    
    
    Set targetSheet = ActiveWorkbook.Worksheets("Feuil1")
    
  
    sourceSheet.Range("A1:BF2").Copy targetSheet.Range("A1")
    
    
    sourceSheet.Parent.Close False
    
 
    MsgBox "Les données ont été importées avec succès.", vbInformation, "Importation terminée"
    
End Sub