Hello all,
Carlos, voila une macro que j'ai faite pour effacer les macros se trouvants dans workbook_open
Dim Debut As Integer, Lignes As Integer
On Error GoTo Suite
With ThisWorkbook.VBProject.VBComponents("ThisWorkbook").codemodule
Debut = .ProcStartLine("Workbook_Open", 0)
Lignes = .ProcCountLines("Workbook_Open", 0)
.DeleteLines Debut, Lignes
End With
++
Creepy