Ouverture d'un fichier et collage dans un autre fichier

'Cliquez sur le menu Outils / Références.
'Dans la liste, cochez Microsoft Office x.y Object Library
Sub SelectionFichier02()
  Dim fd As Office.FileDialog
  
  ' Créer un objet FileDialog
  Set fd = Application.FileDialog(msoFileDialogOpen)
  
  ' Titre de la boîte de dialogue
  fd.Title = "Sélectionnez un fichier..."
  
  ' Ne pas autoriser la sélection multiple
  ' (donc 1 seul fichier est sélectionnable à la fois)
  fd.AllowMultiSelect = False
  
  ' Définir les types de fichiers autorisés
  fd.Filters.Clear
  fd.Filters.Add "Excel", "*.xlsx; *.xlsm; *.xls"
  
  ' Présélectionner le 2ème type de fichier (classeur avec macros)
  fd.FilterIndex = 2
  
  ' Afficher la boîte de dialogue
  If fd.Show() Then
   Application.Workbooks.Open fd.SelectedItems(1)
  End If
  Set fd = Nothing
End Sub