Automatiser des mises à jour de fichiers extérieurs

Sub ImporterDonnees()
Dim Fichier, WbkCopy As Workbook, WbkColle As Workbook
Dim Resultat As Variant

  'On attribue à la variable WbkColle le fichier actuel (celui que tu viens d'envoyer)
  Set WbkColle = ThisWorkbook
  
  'Sélection du fichier
  Fichier = Application.GetOpenFilename("Fichiers Excels, *.xls*")
  'En cas de clic sur "ANNULER"
  If Fichier <> False Then
    'On ouvre le fichier en question (l'ancien fichier)
    Set WbkCopy = Workbooks.Open(Fichier)
      'ICI TU COPIES-COLLES du genre :
    WbkCopy.Sheets("BDD").Range("A3:H45").Copy WbkColle.Sheets("BDD").Range("A3")
    'On ferme l'ancien fichier 
    WbkCopy.Close
  End If
'Spécial bonus : boite de dialogue enregistrer sous :
Fichier = Application.GetSaveAsFilename
ActiveWorkbook.SaveAs Filename:=fichier
Set WbkCopy = Nothing
Set WbkColle = Nothing
End Sub