Macro insertion ligne et date du jour

Bonjour,

j'utilise la macro suivante qui m'insert une ligne automatique dans mon tableau excel:

Sub insere_ligne()
Dim DerLig As Long
Application.ScreenUpdating = False
DerLig = [A65000].End(xlUp).Row
    Rows(DerLig & ":" & DerLig).Copy
    Rows(DerLig & ":" & DerLig).Insert Shift:=xlDown
    Rows(DerLig + 1 & ":" & DerLig + 1).ClearContents
Cells(DerLig + 1, 1).Value = Cells(DerLig, 1).Value + 1
End Sub

j'aimerai utilisé l'instruction suivante, pour insérer automatiquemment la date du jour dans la 1ere cellule de la ligne crée.

Range("A1").Value = Format(Now, "dd.m.yyyy")

où A1=cellule à renseigner avec la date

Mon problème, est que je ne sais pas comment arranger mon code, pour insérer cette instruction.

Pouvez vous m'aider svp

merci d'avance

Petu

Bonsoir,

Remplace cette ligne :

Cells(DerLig + 1, 1).Value = Cells(DerLig, 1).Value + 1 

par

Cells(DerLig + 1, 1) = format(now, "dd/mm/yyyy") 

Amicalement

Dan

re,

je te remercie pour ton aide, c'est parfait.

Petu