Dim ClasSrc As Workbook, FeuiASDbl As Worksheet
Set ClasSrc = Workbooks("art actif base itc.xlsx")
ClasSrc.Worksheets(1).Rows(1).Copy
ActiveSheet.Rows(1).PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
'Récupération de la formule de la colonne N
Set FeuiASDbl = ActiveWorkbook.Worksheets("art sans doublon")
FeuiASDbl.Range("N2:N" & FeuiASDbl.[A65536].End(xlUp).Row).FormulaR1C1 = "=VLOOKUP(RC[-2],[COMPILATION_COUVERTURE.xls]BASE!C7:C60,34,FALSE)"
'Copier la liste de choix
ClasSrc.Worksheets("Listes de choix").Copy Before:=ActiveWorkbook.Sheets(1)