Bonjour,
Je pense qu'il faut que je traduise certaines instructions en anglais, mais je n'arrive pas à tout traduire :

Sub Comptabilité()

Range("A6").Select
Selection.End(xlVersBas).Select
ActiveCell.Décaler(1;0).Range("A1").Select
ActiveCell.FormulaL1C1 = Now()
ActiveCell.Décaler(0;1).Range("A1").Select

End Sub