Sub miseajour()
Dim Plg
'ouvrir le classeur source
Workbooks.OpenText Filename:="C:\dossier_source.xls", Local:=True
' Prendre la plage du classeur source
Set Plg = ActiveWorkbook.Sheets("BDD").UsedRange
' coller les valeurs de la plage sur la feuille de destination
ThisWorkbook.Sheets("BDD").Cells(1, 1).Resize(Plg.Rows.Count, Plg.Columns.Count) = Plg.Value
' Fermer sans sauvegarde le classeur source
ActiveWorkbook.Close False
End Sub