Fixer la date dans une cellule

Bonjour,
Je voudrai fixé la date dans une cellule.

J'ajoute une ligne automatiquement avec le code.

Code:

---

1 2 3 4 5 6 7 8

Sub ligneajout() Dim derligne As Integer derligne = Range("A" & Rows.Count).End(xlUp).Row   Cells(derligne, "A").Select ActiveCell.Offset(1, 0).Select ActiveCell.Offset(0, 0).FormulaLocal = "=AUJOURDHUI()" ActiveCell.Offset(0, 1).Value = "11"

---

Malheureusement, le champs se rempli avec AUJOURDHUI().
Conclusion dans mon tableau excel la date change toujours à la date d'aujourd'hui.

Il faut que quand j’injecte une nouvelle ligne, la date doit se convertir en valeur pour qu"elle ne bouge plus.

Pouvez-vous m'aider svpl?

Code:

---

1 2 3 4 5 6

Sub ligneajout() Dim derligne As Long derligne = Cells(Rows.Count, "A").End(xlUp).Row + 1   Cells(derligne, "A").Value = Now() Cells(derligne, "B").Value = 11

---

Mais je préfère :

Code:

---

1 2 3 4 5 6

Sub ligneajout() Dim derligne As Range Set derligne = Cells(Rows.Count, "A").End(xlUp).Offset(1, 0)   derligne.Value = Now() derligne.Offset(0, 1).Value = 11

---

Bonjour,
Il est normal que si tu écris la formule AUJOURDHUI dans une cellule, Excel te renvoie la date du jour et que celle-ci soit différente chaque jour
En VBA la fonction qui renvoie la date du jour est Date() soit ActiveCell.Offset(0, 0).Value = Date()
Petits conseils :
Lorsque l'on doit insérer une formule dans Excel et pour éviter des problèmes si le classeur est utilisé avec une autre interface linguistique, il y a lieu de privilégier la propriété Formula au lieu de FormulaLocal
Il n'y a aucune raison d'utiliser Select et Selection en VBA pour écrire et lire dans une cellule.

Merci à tous.