Sub Convertir_csv_xls()
dim F as Worksheet
ThisWorkbook.SaveAs Filename:=ActiveWorkbook.Path & "\" & ActiveWorkbook.Name & ".xls"
'Converti *.csv en *.xls
set F =WorkBooks("ILIKO_coulissant_Cosy_melamine.csv.xls").sheets(1)
'mettre dans la variable F la première feuille du classeur nommé
Range("A1:ZZ10000").Copy F.[A1]
WorkBooks("ILIKO_coulissant_Cosy_melamine.csv.xls").activate
F.[A1].select
End Sub