Bonjour,
Essaie ainsi:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("E8:E30")) Is Nothing Then
If Target.Count > 1 Then Exit Sub
ActiveSheet.Unprotect
If Target.Value = "" Then
Target.Offset(0, -3) = ""
Else
Target.Offset(0, -3) = Date
End If
ActiveSheet.Protect
End If
End Sub
Et préfère un alignement centrée sur plusieurs colonnes (E,F) à la fusion des cellules.
Cdlt.