Sub Suppression_Evènement_Feuille()
Dim shNom As String 'nom de la feuille version Utilisateur
Dim shCode As String 'CodeName de la feuille
Dim strEvent As String 'Libellé de l'évènement
Dim debut As Integer 'numéro ligne début de l'évènement
Dim fin As Integer 'nombre de ligne de la procédure
On Error Resume Next
shNom = "Composants"
shCode = Sheets(shNom).CodeName
strEvent = "Worksheet_Change"
With ThisWorkbook.VBProject.VBComponents(shCode).CodeModule
debut = .ProcStartLine(strEvent, 0)
If Err > 0 Then Exit Sub
fin = .ProcCountLines(strEvent, 0)
.DeleteLines debut, fin
End With
End Sub