re,
essaie avec ce code :
With Workbooks(fichier & ".xls").VBProject
For Each VBComponents In .VBComponents
With VBComponents.CodeModule
.DeleteLines 1, .CountOfLines
End With
Next
End With
avec "fichier" la variable que je vois dans le code dont tu parles avant
Tu peux essayer aussi en remplaçant Workbooks(fichier & ".xls") par "activeWorkbook"
Si ok, n'oublie pas de cliquer sur le V vert pour cloturer le fil
Amicalement