Sub AjouterCodeEvChange()
Dim L1 As Long
Dim Code As String
Code = "Dim navig" & vbCrLf
Code = Code & "If Not Application.Intersect(Target, Range(""C30"")) Is Nothing Then" & vbCrLf
Code = Code & " Sheets(""Feuil1"").Range(""AA1"").Value = Range(""C30"").Value" & vbCrLf
Code = Code & " navig = Sheets(""Feuil1"").Range(""AA1"").Value" & vbCrLf
Code = Code & " Worksheets(navig).Select" & vbCrLf
Code = Code & "End If"
With ActiveWorkbook.VBProject.VBComponents([SIZE=3][COLOR=red]NomFeuille[/COLOR][/SIZE]).CodeModule
'n° ligne du début de la proc
L1 = .CreateEventProc("Change", "WorkSheet")
'insérer le texte du code
.InsertLines L1 + 1, Code
End With
Code = ""
End Sub