[VBA] Problème macro Excel

'Mon avis, ajouter ces lignes
Dim CeClasseur As String
    CeClasseur = ThisWorkbook.FullName
'------------------------------------------------------------------------
    'ICI tu crée un nouveau classeur avec le nom Requetes Niveau 2.xls
    Set NewClasseur = Workbooks.Add 'Création du classeur contenant les différentes requetes de N2
    With NewClasseur
        .Title = "Requetes Niveau 2"
        .Subject = "Query N2"
        .SaveAs Filename:="Requetes Niveau 2.xls"
    End With
'------------------------------------------------------------------------
    For i = 1 To Nb_Query_N2 'd'aptès tes dires = 16
        'ICI tu ajoute des nouvelles feuilles NOMS =
        'QueryN2_File1 : QueryN2_File2 : QueryN2_File3  etc.. jusque 16
        File_txt = "QueryN2_File" & i
        Set NewSheet = Worksheets.Add ' Création de la feuille pour chaque requete
        NewSheet.Name = File_txt 'Nomage de la feuille du nom de la requete Zadig
        '-----------------------------
    'LE PROBLEME COMMENCE ICI JE PENSE
    'ICI tu veux activer des classeurs avec les NOMS =
    'QueryN2_File1 : QueryN2_File2 : QueryN2_File3  etc.. jusque 16
    'MAIS OU SONT-IL ??, je ne vois nulle part que tu a créer des classeurs
    'avec ces noms, à moins que tu les ai créer sur le DD
    'et que tu les ai déjà OUVERT
    Workbooks("QueryN2_File" & i).Activate
    'ICI tu veux sélectionner une feuille dans un classeur qui je pense
    'n'existe pas.
'ICI Je pense que tu doit remplacer la ligne du dessus par
'Workbooks(CeClasseur).activate
    Sheets("N2SDB").Select
    Range(Cells(1, 1), Cells(300, 100)).Select
    Selection.Copy
    Workbooks("Requetes Niveau 2.xls").Sheets("QueryN2_File" & i).Activate
    Cells(1, 1).Select
    ActiveSheet.Paste
    ThisWorkbook.Sheets("QueryN2_File" & i).Activate
'ICI Je pense que tu doit remplacer la ligne du dessus par
'Workbooks(CeClasseur).activate
    Next i

Public Chemin As String

'Charge le fichier résultant des requetes de niveau2
Public Function Charge_Fichier_N2()
Dim i As Integer
Dim NewClasseur As Variant
Dim NewSheet As Variant

Nb_Query_N2 = 1 'Pour mon test
    Chemin = ThisWorkbook.Path & "\" 'ou mettre le nom du répertoir + \
    'ca aussi c'est à neutraliser pour le debug, pour permettre de suivre au pas à pas.
    Application.ScreenUpdating = False 'Désactive la mise à jour de l'écran
    Set NewClasseur = Workbooks.Add 'Création du classeur contenant les différentes requetes de N2
    With NewClasseur
        'définit le titre de la page Web
        .Title = "Requetes Niveau 2"
        'utilisé uniquement pour les Macintosh
        .Subject = "Query N2"
        'Manque le répertoir où sauver
        .SaveAs Filename:=Chemin & "Requetes Niveau 2.xls"
    End With

    For i = 1 To Nb_Query_N2
        File_txt = "QueryN2_File" & i
        Set NewSheet = Worksheets.Add ' Création de la feuille pour chaque requete
        NewSheet.Name = File_txt 'Nomage de la feuille du nom de la requete Zadig
    
        'LE PROBLEME COMMENCE ICI JE PENSE
        'OUI,FAUT AJOUTER L'EXTENSION & ".xls"
        Workbooks("QueryN2_File" & i & ".xls").Activate
        Sheets("N2SDB").Select
        Range(Cells(1, 1), Cells(300, 100)).Select
        Selection.Copy
        Workbooks("Requetes Niveau 2.xls").Sheets("QueryN2_File" & i).Activate
        Cells(1, 1).Select
        ActiveSheet.Paste
        'ICI AUSSI ERREUR
        Workbooks("QueryN2_File" & i & ".xls").Activate
    
    Next i
End Function