Pour l'exemple, je pense que ce code (source internet) est un bon début. Mais pour la partie paste, il faut la développer.
Sub importDonnees()
Dim principal As ThisWorkbook
Dim repertoire As String, fichier As String
Application.ScreenUpdating = False
Set principal = ThisWorkbook...