Créer une feuille dans un classeur

Bonjour,



J'aimerais bien créer de nouvelles feuilles dans lesquelles j'insererais "ResultN" et "ResultN_1"
Problème : lorsque je fais

Sheets.Add
        ActiveSheet.Name = "ResultN"

je n'ai aucune nouvelle feuille :s
Voila mon code si vous voyez l'erreur ;)

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