Public Sub AjouteCodeAOnglet(MyOnglet As String)
'Ajoute la procédure dans la feuille
Dim NomVb As String
'Application.Wait Now + TimeValue("0:00:10")
Dim X As Integer
With ActiveWorkbook.VBProject.VBComponents(Sheets(MyOnglet).CodeName).CodeModule
X = .CountOfLines
If X = 0 Then X = 1
.InsertLines X + 1, "Private Sub WorkSheet_Change(ByVal Target As Range) " & vbCrLf
.InsertLines X + 2, " Call InterceptTouche " & vbCrLf
.InsertLines X + 3, "End Sub"
End With
End Sub