Dim j, LeCode(1 To 15)
Dim NomClasseur, NomFeuil As String
Dim Wb As Workbook
NomClasseur = ActiveWorkbook.Name
LeCode(1) = "Private Sub Worksheet_Change(ByVal Target As Range)"
LeCode(2) = " NbreLignes =3+ Application.CountA(Range(""E1:E65536""))"
LeCode(3) = "Non = ""NON"
LeCode(4) = "Oui = ""OUI"
LeCode(5) = " If Intersect(Target, Range(""T5:T"" & NbreLignes)) Is Nothing Then Exit Sub"
LeCode(6) = " Select Case Target.Offset(0, 1)"
LeCode(7) = " Case Is = Oui"
LeCode(8) = " Target.Offset(0, 1) = ""NON"
LeCode(9) = " Case Is = Non"
LeCode(10) = " Target.Offset(0, 1) = ""OUI"
LeCode(11) = " Case Else"
LeCode(12) = " Target.Offset(0, 1) = ""OUI"
LeCode(13) = " End Select"
LeCode(14) = "Target.Offset(0, 1).Select"
LeCode(15) = "End sub"
Set Wb = Workbooks(NomClasseur)
NomFeuil = Sheets(Worksheets.Count).Name
For j = 1 To 15
Wb.VBProject.VBComponents("Spindles").CodeModule.InsertLines j, LeCode(j)
Next j