Salut le forum
AdrienHeiser, ta macro modifiée
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
With Target
If .Column = 3 Then
ActiveSheet.Unprotect
If Time <= "04:00:00" Then
.Offset(0, -2) = Date - 1
Else
.Offset(0, -2) = Date
End If
.Offset(0, -1) = Time
ActiveSheet.Protect
End If
End With
End Sub
Mytå