Private Sub Worksheet_Change(ByVal Target As Range)
If Target.CountLarge > 1 Then Exit Sub
If Intersect(Me.ListObjects(1).DataBodyRange, Target) Is Nothing Then Exit Sub
If Not Intersect([J:J], Target) Is Nothing Then
Application.EnableEvents = False
With Target.Offset(0, 1)
.NumberFormat = "m/d/yyyy": .Value2 = Date: End With
If Not Intersect([L:L], Target) Is Nothing Then
Application.EnableEvents = False
With Target.Offset(0, 1)
.NumberFormat = "m/d/yyyy": .Value2 = Date: End With
If Not Intersect([N:N], Target) Is Nothing Then
Application.EnableEvents = False
With Target.Offset(0, 1)
.NumberFormat = "m/d/yyyy": .Value2 = Date: End With
If Not Intersect([S:S], Target) Is Nothing Then
Application.EnableEvents = False
With Target.Offset(0, 1)
.NumberFormat = "m/d/yyyy": .Value2 = Date: End With
If Not Intersect([U:U], Target) Is Nothing Then
Application.EnableEvents = False
With Target.Offset(0, 1)
.NumberFormat = "m/d/yyyy": .Value2 = Date: End With
If Not Intersect([W:W], Target) Is Nothing Then
Application.EnableEvents = False
With Target.Offset(0, 1)
.NumberFormat = "m/d/yyyy": .Value2 = Date: End With
If Not Intersect([J:J], Target) Is Nothing Then
With Target.Offset(0, -1)
.NumberFormat = "m/d/yyyy": .Value2 = Date + 2: End With
If Not Intersect([S:S], Target) Is Nothing Then
With Target.Offset(0, -1)
.NumberFormat = "m/d/yyyy": .Value2 = Date + 2: End With
Application.EnableEvents = True
ElseIf Target.Column = 2 Then
Dim Cel As Range
Set Cel = Sheets("Mes listes").Columns(1).Cells.Find(what:=Target.Value, LookAt:=xlWhole)
If Not Cel Is Nothing Then
Application.EnableEvents = False
Target.Offset(0, 1).Value = Cel.Offset(0, 1).Value
Application.EnableEvents = True
End If
End Sub