Sub Essai()
Dim DerL&
DerL = Range("A65000").End(xlUp).Row
Range("B2:C" & DerL).ClearContents
For i = 1 To DerL
If IsDate(Cells(i, 1)) Then
Cells(i, 2) = Int(Date - Cells(i, 1))
Cells(i, 3) = Int(DateDiff("d", Cells(i, 1), Date, 2, 2))
Else
Cells(i, 2) = ""
End If
Next
End Sub