Attribute VB_Name = "Module1"
Sub Tri_poste()
Attribute Tri_poste.VB_ProcData.VB_Invoke_Func = " \n14"
'
' Tri_poste Macro
'

'
    Range("C:C,D:D,E:E,I:I,J:J,K:K,L:L,M:M,AD:AD,AK:AK,AM:AM,AO:AO,AQ:AQ,AU:AU,AX:AX,BL:BL").Select
    Range("M1").Activate
    Selection.Copy
    Sheets.Add After:=ActiveSheet
    ActiveSheet.Paste
End Sub