Voila ou jen suis....

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
Private sub CommandButton1_Click()
 
      Dim firstDate As String
      Dim secondDate As String
 
firstDate = WorkSheets("Feuil1").Range("A1"). Value
secondDate = WorkSheets("Feuil1").Range("B1"). Value
 
DateDiff("d", "firstDate", "secondDate") = 
 
End Sub