Problèmes de code

bonjour à toutes et à tous,

pouvez m'aider sur le code suivant :

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Lg As Long
Dim Coul As Byte
Dim Pages
Dim I As Integer
Dim J As Long
Dim NumPage As Integer

    If Target.Comment Is Nothing Then Target.AddComment ' Création commentaire
    Target.Comment.Text Text:=Target.Comment.Text & _
                        Target.Value & " Modifié par:" & Environ("UserName") & _
                        " Le " & Now & vbLf
    Target.Comment.Shape.TextFrame.AutoSize = True
    If Range("BA1") = "" Then
      Lg = 1
      Coul = 3
    Else
      Lg = Range("BA" & Rows.Count).End(xlUp).Row
      Coul = Range("BB" & Lg).Interior.ColorIndex
      If Range("BB" & Lg) < Date Then
       Coul = Coul + 1
        If Coul = 57 Then Coul = 3
        Lg = Lg + 1
      End If
    End If

    Range("BA" & Lg) = "Date de la dernière modification"
    With Range("BB" & Lg)
      .NumberFormat = "m/d/yyyy"
      .Interior.ColorIndex = Coul
      .Value = Date
    End With
End Sub

la ligne du code est surlignée et bugge :

If Target.Comment Is Nothing Then Target.AddComment ' Création commentaire

Je ne comprends pas pourquoi car j'ai repris ce code sur un autre fichier et sur ce dernier cela fonctionne

merci de vos lumières

Dans ton fichier, est ce que tu as mis ce code sous un module ou directement dans un Microsoft Excel Objets ?

je l'ai mis dans la feuil concernée

Bonjour,

La création du commentaire fonctionne parfaitement. mais je suis sous 2010.

Cdlt.

Pourrait-on avoir un fichier exemple ?

en pj le fichier concerné

je voulais vous préciser un point important :

lorsque l'on modifie les informations d'un client sur la feuil2 et après validation, je souhaiterai qu'un commentaire s'inscrive dans la feuil1 sur la cellule modifiée

le code fonctionne si l'on saisie manuellement sur la feuil1

personne n'a de solutions ?