Private Sub Worksheet_Change(ByVal Target As Range)
Dim DerL As Long
DerL = Range("B" & Rows.Count).End(xlUp).Row
If Not Intersect(Target, Range("E1:E" & DerL & ",I1:I" & DerL)) Is Nothing Then
Range("G" & Target.Row) = Date
End If
Worksheets("Accueil").Activate
End Sub