Re
voici un code pour supprimer les modules (il faut mettre dans list_mod les numéro que tu veux supprimer
Sub supp()
On Error Resume Next
list_mod = Array(2, 3, 4, 5, 6, 7, 8, 9)
With ThisWorkbook.VBProject
For Each k In list_mod
.VBComponents.Remove .VBComponents("Module" & k)
Next k
End With
End Sub
Apres si les codes sont avec l'enregistreur, il serait peut être judicieux de les revoir