Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With Cells(Rows.Count, 4).End(xlUp) 'cellule de la dernière date
If ActiveCell.Address <> .Offset(1).Address Then Exit Sub
If IsDate(.Value) Then ActiveCell = .Value + 1 Else ActiveCell = Date
End With
End Sub