Pb code pour Copie de fichiers cvs dans onglets d'excel

Sub demo()
    'creation de la liste des fichiers contenu dans le repertoire qui contient ce même fichier
    Dim MyWay As String, FichierXl As String, CompteurDeFichier As Integer
    Dim MessageFinDeTraitement As String, MaFeuille As Worksheet
    Dim Repertoire As FileDialog, monchemin As String
  
    'Selection d'un repertoire
   
    Set Repertoire = Application.FileDialog(msoFileDialogFolderPicker)
    Repertoire.Show
    If Repertoire.SelectedItems.Count > 0 Then
    MyWay = Repertoire.SelectedItems(1) 'chemin du dossier dans variable my way
    Else
    MsgBox "Aucun Répertoire Sélectionné"
    End If

    CompteurDeFichier = 0 'initialisation du compteur
    FichierXl = Dir(MyWay & "\*.csv") 'on commence la récupération des fichiers .xls
    Do While Not FichierXl = "" 'on boucle tant que la variable FichierXl n'est pas vide
       CompteurDeFichier = CompteurDeFichier + 1 'incrémentation du compteur
              
        If CompteurDeFichier <> 0 Then ' au premier fichier trouvé
            On Error Resume Next 'en cas d'erreur sur la prochaine ligne
                 monchemin = MyWay & "\" & FichierXl
                Set MaFeuille = Worksheets.Add(After:=Worksheets(Worksheets.Count)) ' on ajoute un nouvel onglet
                'on lui donne son nom
                 MaFeuille.Name = FichierXl
                ' On ouvre le fichier cvs trouvé par le compteur et on initialise le séparareur comme étant la virgule
                 On Error GoTo 0 'annule le precedent on error
                 Call ConversionCVS(monchemin)
                 
            'ActiveSheet.Range("A2:G511").Select ' Si tu préfère sélectionner des cellules spécifiques
             ActiveSheet.Cells.Select 'Sélectionne toute les cellules de la feuille
             Selection.Copy ' Copy toute les cellules
             Windows("Classeur1.xlsm").Activate ' On se place dans l'autre classeur
             MaFeuille.Select
             ActiveSheet.Paste
             Application.CutCopyMode = False
             Windows(FichierXl).Activate
             ActiveWorkbook.Close False
                       
        
        End If
          FichierXl = Dir 'on passe au fichier suivant
        DoEvents 'en cas de problème on pourra toujours sortir de la boucle avec la touche [échap]
    Loop
    If CompteurDeFichier = 0 Then ' si pas de fichier
        MessageFinDeTraitement = "Aucun Fichier trouvé dans le répertoire spécifié ! "
    Else 'si un fichier ou plus a/on été trouvé(s)
        MessageFinDeTraitement = CompteurDeFichier & " fichier(s) trouvé(s) "
    End If
    ' on affiche un message en fin de traitement
    MsgBox MessageFinDeTraitement
End Sub


Sub ConversionCVS(monchemin)
    

     'Ouverture d'un fichier Excel
      Workbooks.OpenText Filename:=monchemin, Origin:=xlWindows, _
      StartRow:=2, DataType:=xlDelimited, TextQualifier:=xlNone, _
      ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=False, Comma:=True, Space:=False, Other:=False, FieldInfo:=Array(1, 1), TrailingMinusNumbers:=True
      
      ' MISE EN FORME DES DONNEES
      ' Suppression des données inutiles
      Rows("1:219").Select
      Selection.Delete Shift:=xlUp
      Columns("C:E").Select
      Selection.Delete Shift:=xlToLeft
      
      ' Données des différents Vd mises côte à côtes
      Range("C99:D195").Select
      Selection.Cut
      Range("E2:F98").Select
      ActiveSheet.Paste
      Range("C196:D292").Select
      Selection.Cut
     Range("G2:H98").Select
      ActiveSheet.Paste
            
     ' Supression des données superflues
      Range("A99:B292").Select
      Selection.Delete Shift:=xlUp
     
     ' On mets les titres sur chaque colonnes
    Range("C1").Select
    ActiveCell.FormulaR1C1 = "Id - Vd -0,1"
    Range("D1").Select
    ActiveCell.FormulaR1C1 = "Ig - Vd -0,1"
    Range("E1").Select
    ActiveCell.FormulaR1C1 = "Id- Vd -0,5"
    Range("F1").Select
    ActiveCell.FormulaR1C1 = "Ig-Vd-0,5"
    Range("G1").Select
    ActiveCell.FormulaR1C1 = "Id -Vd-0,9"
    Range("H1").Select
    ActiveCell.FormulaR1C1 = "Ig -Vd-0,9+"
    Range("H1").Select
    ActiveCell.FormulaR1C1 = "Ig -Vd-0,9"

     ' Supression des données superflues
      Columns("A").Select
      Selection.Delete Shift:=xlUp
     
     
End Sub

 Workbooks.OpenText Filename:="FichierXl",

Sub demo()
    'creation de la liste des fichiers contenu dans le repertoire qui contient ce même fichier
    Dim MyWay As String, FichierXl As String, CompteurDeFichier As Integer
    Dim MessageFinDeTraitement As String, MaFeuille As Worksheet
    Dim Repertoire As FileDialog
       
    
    'Selection d'un repertoire

    Set Repertoire = Application.FileDialog(msoFileDialogFolderPicker)
    Repertoire.Show
    If Repertoire.SelectedItems.Count > 0 Then
    MyWay = Repertoire.SelectedItems(1) 'chemin du dossier dans variable my way
    Else
    MsgBox "Aucun Répertoire Sélectionné"
    End If
  
    CompteurDeFichier = 0 'initialisation du compteur
    FichierXl = Dir(MyWay & "\*.csv") 'on commence la récupération des fichiers .xls
    Do While Not FichierXl = "" 'on boucle tant que la variable FichierXl n'est pas vide
       CompteurDeFichier = CompteurDeFichier + 1 'incrémentation du compteur
        If CompteurDeFichier = 1 Then ' au premier fichier trouvé
            On Error Resume Next 'en cas d'erreur sur la prochaine ligne
                Set MaFeuille = Worksheets.Add(after:=Worksheets(Worksheets.Count)) ' on ajoute un nouvel onglet
                'on lui donne son nom
                MaFeuille.Name = "Test" & CompteurDeFichier
                ' On ouvre le fichier cvs trouvé par le compteur et on initialise le séparareur comme étant la virgule
                 On Error GoTo 0 'annule le precedent on error
                            
        End If
          FichierXl = Dir 'on passe au fichier suivant
        DoEvents 'en cas de problème on pourra toujours sortir de la boucle avec la touche [échap]
    Loop
    If CompteurDeFichier = 0 Then ' si pas de fichier
        MessageFinDeTraitement = "Aucun Fichier trouvé dans le répertoire spécifié ! "
    Else 'si un fichier ou plus a/on été trouvé(s)
        MessageFinDeTraitement = CompteurDeFichier & " fichier(s) trouvé(s) "
    End If
    ' on affiche un message en fin de traitement
    MsgBox MessageFinDeTraitement
End Sub


Sub ConversionCVS(FichierXl)
    
    'Déclaration des variables pour l'importation du cvs
    Dim appExcel As Excel.Application 'Application Excel
    Dim wbExcel As Excel.Workbook 'Classeur Excel
    Dim wsExcel As Excel.Worksheet 'Feuille Excel

     'Ouverture de l'application
      Set appExcel = CreateObject("Excel.Application")
     'Ouverture d'un fichier Excel
      Workbooks.OpenText Filename:="FichierXl", Origin:=xlWindows, _
      StartRow:=2, DataType:=xlsDelimited, TextQualifier:=xlDoubleQuote, _
      ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=False, Comma:=True, Space:=False, Other:=False, FieldInfo:=Array(1, 1), TrailingMinusNumbers:=True

     Set wbExcel = appExcel.ActiveWorkbook
     Set wsExcel = wbExcel.ActiveSheet
     wsExcel.UsedRange.Copy Destination:=MaFeuille.Range("A" & Rows.Count).End(xlUp).Offset(0)
     wbExcel.Close
                          
End Sub

FichierXl