Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Sh.Name = "Onglet1" Then
If Target.Count = 1 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) = Cells(ActiveCell.Row, 4)
Sheets("espion").Cells(temp, 3) = Target.Address
Sheets("espion").Cells(temp, 4) = Now
Sheets("espion").Cells(temp, 5) = Target
Sheets("espion").Cells(temp, 6) = valsaisie
Sheets("espion").Cells(temp, 7) = Environ("username")
Target = valsaisie
Application.EnableEvents = True
End If
End If
End Sub