Sub opened_since()
Dim datestate As Date
Dim opendate As Date
Dim openedsince As Long
Sheets("Feuil1").Select
datestate = ActiveSheet.Cells(2, 1)
MsgBox datestate
opendate = ActiveSheet.Cells(1, 1)
MsgBox opendate
openedsince = DateDiff(d, opendate, datestate)
MsgBox openedsince
End Sub