Suivre les modifications d'une cellule

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Private Sub Worksheet_Change(ByVal Target As Range)

Option Explicit

Dim RgCible As Range  'variable qui sert à stocker la plage qui est prise en compte
Dim OldValue As Variant  ' Variable servant à stocker provisoirement la valeur de la cellule sélectionée

' cette macro réagit en premier et stocke la valeur de la cellule si elle est dans la plage voulue

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Set RgCible = Range("ListeA")      ' Affecte la plage qui doit être prise en compte à la variable
 If Not Intersect(RgCible, Target) Is Nothing Then OldValue = Target.Value  ' si la sélection est dans la plage voule, la valeur de la cellule est stockée dans une variable.
End Sub

' cette macro réagit ensuite et si la valeur de la cellule change, récupère la valeur stockée pour l'écrire dans la feuille de rapport.

Private Sub Worksheet_Change(ByVal Target As Range)

Dim WksRapport As Worksheet ' variable pour stocker une feuille
Dim Li As Long ' variable pour stocker une valeur numérique de type long

    Set WksRapport = Worksheets(2) 'affecte la feuille "rapport" à la variable
    If Not Intersect(RgCible, Target) Is Nothing Then ' si l'intersection de la plage choisie et de la cellule sélectionée (Target) ne donne rien, la macro passe
    'à la suite ( directement à End if) sinon execute le code si dessous.
        With WksRapport
            Li = .Range("A65536").End(xlUp).Row + 1 'cherche la dernière ligne utilisée dans la feuille rapport pour ecrire à la suite
            .Cells(Li, 1) = Target.Address ' ecrit l'adresse de la cellule
            .Cells(Li, 2) = OldValue ' écrit l'ancienne valeur
            .Cells(Li, 3) = Target.Value ' écrit la nouvelle valeur
            .Cells(Li, 4) = Now 'écrit la date
        End With
    End If
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
  Application.EnableEvents = False
  If Target.Column <> 0 Then                  
    On Error Resume Next                        
    Err = 0
    temp = Target.Comment.Text                 
    If Err <> 0 Then Target.AddComment          
    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                             
  End If
  Application.EnableEvents = True
End Sub