Sub AjouterCode()
iajcode = Workbooks(nomact).VBProject.VBComponents("Thisworkbook").CodeModule.CountOfLines
Workbooks(nomact2).VBProject.VBComponents("Thisworkbook").CodeModule.AddFromString Workbooks(nomact).VBProject.VBComponents("Thisworkbook").CodeModule.Lines(1, iajcode)
End Sub