Créer une feuille dans un classeur

Sheets.Add
        ActiveSheet.Name = "ResultN"

Sub Automat()
    
    Dim i As Integer
        
    Workbooks.Open "c:\librairie\GL_0814.xlsx"
        
        Worksheets("Feuil1").Select
        Columns("A:A").Select
        Selection.Insert Shift:=xlToRight
        i = 2
        While Cells(i, 2) <> ""
            Cells(i, 1) = Cells(i, 2) & Cells(i, 3) & Cells(i, 4)
            i = i + 1
        Wend
        ResultN = ActiveSheet.Name

        
    Workbooks.Open "c:\librairie\GL_0813.xlsx"
        Worksheets("Feuil1").Select
        Columns("A:A").Select
        Selection.Insert Shift:=xlToRight
        i = 2
        While Cells(i, 2) <> ""
            Cells(i, 1) = Cells(i, 2) & Cells(i, 3) & Cells(i, 4)
            i = i + 1
        Wend
        ResultN_1 = ActiveSheet.Name
    
    Workbooks.Open "c:\librairie\Resultat.xls"
        Sheets.Add
        ActiveSheet.Name = "ResultN"
        End Sub