Salut à toutes et à tous


Je ne suis pas une lumière en VB alors je fais appelle à la commu


Je cherche à insérer dans excel une macro qui supprimerait toutes les macros du classeur excel.


J'ai déjà fait des recherches et j'ai finalement obtenu ceci :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
Dim VBComponent As Object
For Each VBComponent In ActiveWorkbook.VBProject.VBComponents
  Select Case VBComp.Type
    Case 1 To 3
      ActiveWorkbook.VBProject.VBComponents.Remove VBComponent
    Case Else
      With VBComponent.CodeModule
        .DeleteLines 1, .CountofLines
      End With
  End Select
Next VBComponent
Seulement il semblerait que ça ne fonctionne pas... une idée ?

Merci d'avance à tous ceux qui répondront