Sub COPIEBASEVG()
Set wbcible = ThisWorkbook
Set wbsource = Workbooks.Open("c:\donnees\export.xls")
wbsource .Activate
With wbsource
ActiveSheet.Columns("A:A").Copy wbcible.Sheets("a copier").Columns("A:A")
ActiveSheet.Columns("B:B").Copy wbcible.Sheets("a copier").Columns("B:B")
ActiveSheet.Columns("C:C").Copy wbcible.Sheets("a copier").Columns("C:C")
ActiveSheet.Columns("L:L").Copy wbcible.Sheets("a copier").Columns("L:L")
ActiveSheet.Columns("M:M").Copy wbcible.Sheets("a copier").Columns("M:M")
End With
Range("A1").Select
Sheets("MENU").Select
End Sub