Sub test()
Dim Wb As Workbook
Dim Ws As Worksheet
Dim x As Integer
Dim leCode As String
Dim I&
Dim T
Set Wb = ActiveWorkbook
T = Array("Feuil1", "Feuil5", "Feuil7")
For I = LBound(T) To UBound(T)
With Wb.VBProject.VBComponents(T(I)).CodeModule
x = .CreateEventProc("Activate", "WorkSheet")
.InsertLines x + 1, "Sheets(""" & T(I) & """).Visible= False"
End With
Next I
End Sub