COPIE D'une macro historique modifications - Macro initale de Boisgontier

[urbanito1]

Salut à la Communauté,

dans le fichier feuille 1 j'ai placé cette macro menu
Option Explicit

' Code à placer dans le code du 1er onglet (table des matières)
Private Sub Worksheet_Activate()
Dim i As Integer

Range("A2:A100").ClearContents 'effacer les liens existants.

For i = 2 To Worksheets.Count 'on commence au 2e onglet
Range("A" & i).Select

'On doit mettre en ' avant et après le nom de l'onglet
' car s'il contient un espace le lien hypertexte
' ne fonctionnera pas.
'Si aucun des onglets ne contient d'espace, on peut omettre le '
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", _
SubAddress:="'" & Worksheets(i).Name & "'!A1", _
TextToDisplay:=Worksheets(i).Name

Next
End Sub

a la page 2 celle-ci:

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Target.Column = 12 Or Target.Column = 13 Or Target.Column = 14 Or Target.Column = 15 Or Target.Column = 16 Or Target.Column = 17 Then
On Error Resume Next ' active la gestion d'erreur
Err = 0
temp = Target.Comment.Text ' Commentaire existe t-il?
If Err <> 0 Then Target.AddComment ' Création commentaire
Target.Comment.Text Text:=Target.Comment.Text & _
Target.Value & " Modifié par:" & NomUtil() & _
" Le " & Now & vbLf
Target.Comment.Visible = True
Target.Comment.Shape.Select
Selection.AutoSize = True
Target.Comment.Visible = False
On Error GoTo 0 ' désactive la gestion d'erreurs
End If
Application.EnableEvents = True
End Sub

j'ai ce message d'anomalie:

erreur de compilation
sub ou fonction non définie
Private Sub Worksheet_Change(ByVal Target As Range)


si je prends ma macro historique modification seule, ça marche

mes connaissances VBA sont encore assez limitées...
qui pourrait m'aider ?

merci bien
urbanito1