@+Thierry

Et puis si vous voulez jouez les Atilas

DESTRUCTION (plus aucun module ne pusse après cà !!!!)

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

Signé Atila@Christophe@ !!!

... çà peut ptet servir un jour ... MAIS DANGER !!!

Voilà !! ça complète le fil

@+Thierry