[résolu] Ecrire code dans module VBA

Public Sub Test()
Dim feuilCode As Worksheet, nouvModule As Object, i As Long, derLigCode As Long, code As String, fichierDest As Workbook

    'définir la feuille contenant le code à ajouter dans un nouveau module
    Set feuilCode = ThisWorkbook.Sheets("Sheet1")
    With feuilCode
        'récupérer le numéro de la derlière ligne remplie en colonne A
        derLigCode = .Range("A" & .Rows.Count).End(xlUp).Row
        
        'boucler de la première à la dernière ligne de code
        For i = 1 To derLigCode
            'ajouter la nouvelle ligne de code
            code = code & vbNewLine & .Range("A" & i).Text
        Next i
    End With
    
    'ouvrir le classeur destination
    Set fichierDest = Application.Workbooks.Open("C:\test.xls")
    'créer un nouveau module (1) dans le classeur destination
    Set nouvModule = fichierDest.VBProject.VBComponents.Add(1)
    'modifier le nom du nouveau module créé
    nouvModule.Name = "TestNouveauModule"
    'ajouter le code au module (du fichier destination
    nouvModule.CodeModule.AddFromString code
    'fermer le classeur destionation en sauvant les modifications
    fichierDest.Close True
End Sub

Public Sub Test()
Dim feuilCode As Worksheet, nouvModule As Object, i As Long, derLigCode As Long, code As String, fichierDest As Workbook
    
    'désactiver les allertes
    Application.DisplayAlerts = False

    ...
    
    'réactiver les allertes
    Application.DisplayAlerts = True
End Sub

Private Sub AjouterModule(pathClasseurXls As String, pathFichierCodeTxt As String)
Dim nouvModule As Object, fichierDest As Workbook
   
    'ouvrir le classeur destination
    Set fichierDest = Application.Workbooks.Open(pathClasseurXls)
    'créer un nouveau module (1) dans le classeur destination
    Set nouvModule = fichierDest.VBProject.VBComponents.Add(1)
    'ajouter le code au module (du fichier destination)
    nouvModule.CodeModule.AddFromFile pathFichierCodeTxt
    'fermer le classeur destionation en sauvant les modifications
    fichierDest.Close True
    
End Sub

Sub Test()
Dim fenetrefichiers As FileDialog, pathFichierExcel As Variant, pathFichierTxtCode As String

    'définir le path du fichier contenant le code à rajouter dans les fichiers Excel
    pathFichierTxtCode = "C:\TestFichierTxt.txt"
    
    'configurer la fenêtre de sélection des fichiers
    Set fenetrefichiers = Application.FileDialog(msoFileDialogFilePicker)
    fenetrefichiers.AllowMultiSelect = True
    fenetrefichiers.Filters.Add "Fichiers Excels", "*.xls; *.xls"
    
    'lancer la fenêtre de sélection
    fenetrefichiers.Show
    
    'désactiver les allertes et le rafraichissement de l'écran
    Application.DisplayAlerts = False
    Application.ScreenUpdating = False
    On Error Resume Next
    
    'boucler sur chaque éléments sélectionnés
    For Each pathFichierExcel In fenetrefichiers.SelectedItems
        'ajouter un nouveau module avec le code contenu dans le fichier texte
        AjouterModule CStr(pathFichierExcel), "C:\TestFichierCode.txt"
    Next pathFichierExcel
    
    'réactiver les allertes et le rafraichissement de l'écran
    On Error GoTo 0
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
    
End Sub