Sub Import ()
Application.ScreenUpdating = False
Dim Fichier1 As String, Fichier2 As String
Fichier1 = ActiveWorkbook.Name
'ouvre la fenêtre de sélection du fichier à copier, on peut remplacer c:\ par le chemin approprié
Application.Dialogs(xlDialogOpen).Show ("C:\")
Fichier2 = ActiveWorkbook.Name
'Copier les colonnes A à D de la Feuil1
Sheets("Feuil1").Range("A:D").Select
Selection.Copy
'Coller les données sur le classeur contenant la macro en Feuil1 position A1
Workbooks(Fichier1).Activate
Sheets("Feuil1").Select
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
'Femeture du fichier copié
Workbooks(Fichier2).Close
Application.ScreenUpdating = True
End Sub