Bonjour,

j'ai bossé un peu dessus, voici le résultat.

Option Explicit
Dim dDateOld As Date

Private Sub DTPicker1_Change()
Dim dDateVal
dDateVal = DTPicker1.Value