Sub ABC()
'ajout onglet
Sheets.Add
'changement nom onglet
ActiveSheet.Name = "onglet resultat"
'copie colonne Code
Sheets("data").Select
Range("B3", Range("B3").End(xlDown)).Select
Selection.Copy
Sheets("onglet resultat").Select
Range("B8").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
'copie colonne Description
Sheets("data").Select
Range("C8", Range("C8").End(xlDown)).Select