With ThisWorkbook.VBProject.VBComponents("Module1").CodeModule
S = .Lines(1, .CountOfLines)
End With
Set Wbk = Workbooks.Open(nom_dossier & "\" & nom_fichier_en_cours)
With Wbk
With .VBProject.VBComponents.Add(1)
.CodeModule.AddFromString S
End With
End With