XL 2019 Date automatique figer

[Bloody_Toad]

Bonjour
Je fais encore appel à vos bonnes âmes...
Voilà je voudrais une date automatique qui ne change jamais même si je change de nom dans la colonne C.
J'ai trouvé deux macros qui pourraient faire, mais je n'arrive pas à les "compiler". J'ai compris que pour figer la date le "if Notintersect " a quelque chose à voir , mais après plusieurs essais un peu dans tous les sens je me suis résigné à refaire appel à la communauté.
Merci
Les macro que j'ai trouvées et le fichier ou j'en suis :-(
Merci

Date automatique sans changement du tout



Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Count <> 1 Then Exit Sub

If Not Intersect(Target, Range("A1:H1")) Is Nothing And Target <> Empty Then

Cells(5, Target.Column) = Date

ElseIf Not Intersect(Target, Range("A8:H8")) Is Nothing And Target <> Empty Then

Cells(12, Target.Column) = Time

Cells(12, Target.Column).NumberFormat = "[$-F400]h:mm:ss AM/PM"

Else

End If





End Sub

Date automatique sans changement le lendemain mais change avec le nom

Private Sub Worksheet_Change(ByVal Target As Range)



Dim h, iSct As Range

Set iSct = Intersect(Target, Range("C:C"))

If iSct Is Nothing Then Exit Sub

Application.EnableEvents = False

For Each h In iSct.Cells

If IsEmpty(h) Then

h.Offset(0, 1) = ""

Else

h.Offset(0, 1) = Format(Now, "dd/mm/yy")

End If

Next

Application.EnableEvents = True



End Sub