Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Application.ScreenUpdating = False
If Not Intersect(Target, Range("B2:F3")) Is Nothing Then
[J8] = Format(Date, "Le dd mmmm yyyy")
With Worksheets("one")
.Unprotect [COLOR="Red"]Password:="toto"[/COLOR]
.[I4] = Format(Date, "Le dd mmmm yyyy")
.Protect [COLOR="red"]Password:="toto"[/COLOR]
End With
Application.ScreenUpdating = True
End If
End Sub