Sub Date_Jour_J()
'
' Jour Macro
Ligne = ActiveCell.Row
Colonne = ActiveCell.Column
[Date].Copy
Cells(Ligne, Colonne).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
ActiveCell.Offset(1, 0).Range("A1").Select
End Sub