Attribute VB_Name = "Module2"
Sub Nouveaux_usagers()
Attribute Nouveaux_usagers.VB_ProcData.VB_Invoke_Func = " \n14"
'
' Nouveaux_usagers Macro
'

'
    Columns("A:A").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("usagers").Select
    Columns("C:C").Select
    ActiveSheet.Paste
    Sheets("Feuil1").Select
    Columns("B:B").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("usagers").Select
    Columns("D:D").Select
    ActiveSheet.Paste
    Sheets("Feuil1").Select
    Columns("C:C").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("usagers").Select
    Columns("E:E").Select
    ActiveSheet.Paste
    Columns("D:D").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("usagers").Select
    Columns("I:I").Select
    ActiveSheet.Paste
    Sheets("Feuil1").Select
    Columns("E:E").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("usagers").Select
    Columns("J:J").Select
    ActiveSheet.Paste
    Sheets("Feuil1").Select
    Columns("F:F").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("usagers").Select
    Columns("K:K").Select
    ActiveSheet.Paste
    Sheets("Feuil1").Select
        Columns("G:G").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("usagers").Select
    Columns("L:L").Select
    ActiveSheet.Paste
    Sheets("Feuil1").Select
    Columns("H:H").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("usagers").Select
    Columns("M:M").Select
    ActiveSheet.Paste
    Sheets("Feuil1").Select
    Columns("I:I").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("usagers").Select
    Columns("AD:AD").Select
    ActiveSheet.Paste
    Sheets("Feuil1").Select
    Columns("J:J").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("usagers").Select
    Columns("AK:AK").Select
    ActiveSheet.Paste
    Sheets("Feuil1").Select
    Columns("K:K").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("usagers").Select
    Columns("AM:AM").Select
    ActiveSheet.Paste
    Sheets("Feuil1").Select
    Columns("L:L").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("usagers").Select
    Columns("AO:AO").Select
    ActiveSheet.Paste
    Sheets("Feuil1").Select
    Columns("M:M").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("usagers").Select
    Columns("AQ:AQ").Select
    ActiveSheet.Paste
    Sheets("Feuil1").Select
    Columns("N:N").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("usagers").Select
    Columns("AU:AU").Select
    ActiveSheet.Paste
    Sheets("Feuil1").Select
    Columns("O:O").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("usagers").Select
    Columns("AX:AX").Select
    ActiveSheet.Paste
    Sheets("Feuil1").Select
    Columns("P:P").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("usagers").Select
    Columns("BL:BL").Select
    ActiveSheet.Paste
    Sheets("Feuil1").Select

    
    End Sub