Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$I$3" Then Exit Sub
Application.EnableEvents = True
ActiveSheet.Unprotect Password:=""
If Len(Target) = 9 And IsNumeric(Target) Then
ActiveSheet.Unprotect Password:=""
[H1] = [E1] & [I3]
End If
If Not Intersect(Target, Range("i7:i20000")) Is Nothing Then 'heure appel
Application.EnableEvents = True
ActiveSheet.Unprotect Password:=""
Target.Offset(0, 2) = Now()
End If
If Not Intersect(Target, Range("l7:l20000")) Is Nothing Then
Application.EnableEvents = True
ActiveSheet.Unprotect Password:=""
Target.Offset(0, -7) = Now()
Target.Offset(0, 8) = ""
Target.Offset(0, 9) = ""
End If
If Not Intersect(Target, Range("u7:u20000")) Is Nothing Then
Application.EnableEvents = True
ActiveSheet.Unprotect Password:=""
Target.Offset(0, -16) = Now()
End If
ActiveSheet.Protect Password:="", DrawingObjects:=True, Contents:=True, Scenarios:=True
ActiveSheet.EnableSelection = xlNoRestrictions
End Sub