Suivi historique modification dans feuille espion

Bonjour à tous,

Toujours en mode découverte de la VBA.

Je cherche à avoir un suivi de modification dans une feuille qui s'appelle espion.

J'ai trouvé un code à mettre dans Thisworkbook.

Il remonte très bien les informations dans ma feuille espion.

Mais malheureusement tout ce que j'écris dans les autres feuilles s'effacent immédiatement après validation.

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
  If Sh.Name <> "Espion" Then
    Application.EnableEvents = False
    ValSaisie = Target
    Application.Undo
    temp = Application.CountA(Sheets("Espion").Range("a:a")) + 1
    Sheets("Espion").Cells(temp, 1) = Sh.Name
    Sheets("Espion").Cells(temp, 2) = Target.Address
    Sheets("Espion").Cells(temp, 3) = Now
    Sheets("Espion").Cells(temp, 4) = Target
    Sheets("Espion").Cells(temp, 5) = ValSaisie
    Sheets("Espion").Cells(temp, 6) = Environ("username")
    Application.EnableEvents = True
  End If
End Sub

Bonjour,

Supprime

Application.Undo

Merci beaucoup, ça fonctionne super bien. C'est parfait.