Sub Import()
'
' Import Macro
'
'
Workbooks.Open Filename:="C:\Users\Jean-Paul. Masson\Desktop\AAA.xlsx"
Columns("A:F").Select
Selection.Copy
Windows("azerty.xlsm").Activate
Columns("A:A").Select
ActiveSheet.Paste
Windows("AAA.xlsx").Activate
ActiveWindow.Close
Range("A1").Select
End Sub