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...