Bonjour Docmo
Ben très simple, moi je bosse comme cela
1. je Sauve mon fichier mes ne le ferme pas
2. je supprime les macro du fichier
3. je l'envoi par mail
4. je ferme sans sauvergardé
Voici une macro qui tu supprimera tous les macro de ton fichier:
Sub EffaceMacro ()
Dim VBC As Object
With ActiveWorkbook.VBProject
For Each VBC In .VBComponents
If VBC.Type = 100 Then
With VBC.CodeModule
.DeleteLines 1, .CountOfLines
.CodePane.Window.Close
End With
Else: .VBComponents.Remove VBC
End If
Next VBC
End With
End Sub
Bonne journée
@Christophe@