Copier contenu d'un bloc note dans le code d'une feuille

Option Explicit

Sub CopierModule()
Dim chemin$
chemin = ThisWorkbook.Path & "\"
On Error Resume Next
With ActiveWorkbook.VBProject
    .VBComponents.Remove .VBComponents("Module3") 'RAZ
    .VBComponents.Import(chemin & "Module3.txt").Name = "Module3"
End With
End Sub

Sub Message()
MsgBox "Bonjour le forum"
End Sub

Sub CopierCode()
Dim fichier$, t
fichier = ThisWorkbook.Path & "\Code.txt" 'à adapter
Application.ScreenUpdating = False
With Workbooks.Open(fichier).Sheets(1)
    t = Application.Transpose(.UsedRange) 'maximum 65536 lignes
    If IsArray(t) Then t = Join(t, vbLf)
    .Parent.Close
End With
With ActiveWorkbook.VBProject.VBComponents("Feuil1").CodeModule
    .DeleteLines 1, .CountOfLines
    .InsertLines 1, t
End With
End Sub