Private Sub Workbook_Open()
Sheets("Feuil2").Select
Sheets("Feuil1").Select
End Sub
Public tablo
Private Sub Worksheet_Activate()
tablo = Range("A2:N50")
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
tablo1 = Range("A2:N50")
For n = LBound(tablo, 1) To UBound(tablo, 1)
For m = LBound(tablo, 2) To UBound(tablo, 2)
If tablo(n, m) <> tablo1(n, m) Then
Application.EnableEvents = False
Range("L2") = Now
Application.EnableEvents = True
tablo = Range("A2:N50")
Exit Sub
End If
Next m
Next
End Sub