Sub A_A_Copy_VB_Img_In_Thisworkbook()
'attention sur le fichier .txt, rajouter une ligne au début vierge, sinon, il manque une ligne.
'On Error Resume Next
Workbooks(ActiveWorkbook.Name).Activate
DoEvents
Workbooks(ActiveWorkbook.Name).Activate
iajcode = Workbooks(ActiveWorkbook.Name).VBProject.VBComponents("ThisWorkbook").CodeModule.CountOfLines
If iajcode > 0 Then Exit Sub
Close
'Open pathname For mode [Access access] [lock] As [#]filenumber [Len=reclength]
Open "C:\_VBA\Test.txt" For Input As #1
i = 1
With ActiveWorkbook.VBProject.VBComponents("Thisworkbook").CodeModule
Line Input #1, ligne$
While EOF(1) <> True
Line Input #1, ligne$
.InsertLines i, ligne$: i = i + 1
Wend
End With
Close
End Sub