'Option Explicit
Sub DateJour()
'Dim xdlgn As Single
xdlgn = Range("B" & Rows.Count).End(xlUp).Row + 1
Range("B" & xdlgn) = Date
End Sub
Sub DateJour2()
colonne = 2
Cells(Cells(Rows.Count, colonne).End(xlUp).Row + 1, colonne) = Date
End Sub
Sub DateSendkeys()
SendKeys ("^{Down}^{up}{Down}^;~")
End Sub