Créer date et ligne par click

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column <> 1 Then Exit Sub 'si la cellule double-cliqué est ailleurs que dans la colonne A, sort de la procédure
Cancel = True 'evite le mode édition lié au double-clic
'place la date en évitant les problèmes d'inversion jour/mois
Target.Value = Format(Day(Date), "00") & "/" & Format(Month(Date), "00") & "/" & Year(Date)
End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column <> 1 Then Exit Sub 'si la cellule double-cliqué est ailleurs que dans la colonne A, sort de la procédure
Cancel = True 'evite le mode édition lié au double-clic

'place la date en évitant les problèmes d'inversion jour/mois
Target.Value = Format(Day(Date), "00") & "/" & Format(Month(Date), "00") & "/" & Year(Date)

'mise en forme de la ligne
With Range(Cells(Target.Row, 1), Cells(Target.Row, 10)) 'prend en compte les cellules des colonnes A à J de la cellule double-cliquée
    With .Borders(xlEdgeLeft) 'ligne à gauche
        .LineStyle = xlContinuous
        .Weight = xlHairline
        .ColorIndex = xlAutomatic
    End With
    With .Borders(xlEdgeTop) 'ligne du haut
        .LineStyle = xlContinuous
        .Weight = xlHairline
        .ColorIndex = xlAutomatic
    End With
    With .Borders(xlEdgeBottom) 'ligne du bas
        .LineStyle = xlContinuous
        .Weight = xlHairline
        .ColorIndex = xlAutomatic
    End With
    With .Borders(xlEdgeRight) 'ligne à drote
        .LineStyle = xlContinuous
        .Weight = xlHairline
        .ColorIndex = xlAutomatic
    End With
End With 'fin de la prose en compte des...

'mise en forme et valeur de la cellule en colonne G
Target.Offset(0, 6).NumberFormat = "#,##0.00 $" 'format
Target.Offset(0, 6).Font.Bold = True 'gras
Target.Offset(0, 6).Value = 0 'valeur

'mise en forme et valeur de la cellule en colonne J
Target.Offset(0, 9).NumberFormat = "#,##0.00 $" 'format
Target.Offset(0, 9).Value = Target.Offset(-1, 9) 'valeur
End Sub