Salut all, le Forum
J'avais fait une macro, grace deja à kk1 du forum, pour supprimer ma macro d'initilisation à l'ouverture du fichier, afin de me permettre de sauvegarder.
La voila-------------------------
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
En espérant que cela te serve
++
Creepy