Private Sub DTPicker1_Change()
Sheets("Feuil2").Select
Range("B1") = DTPicker1.Value
Range("B1").NumberFormat = "dd/mm/yyyy"
Range("B2") = DTPicker2.Value
Range("B2").NumberFormat = "dd/mm/yyyy"
End Sub
Private Sub DTPicker2_Change()
Sheets("Feuil2").Select
Range("B1") = DTPicker1.Value
Range("B1").NumberFormat = "dd/mm/yyyy"
Range("B2") = DTPicker2.Value
Range("B2").NumberFormat = "dd/mm/yyyy"
End Sub