Sheets("Copie2").Select
Application.Calculation = xlCalculationManual
Dim p6 As Long
Dim y6 As Long
Dim z6 As Range
p6 = 0
On Error Resume Next
For y6 = 3 To y6 = 65536 Step 1
Cells(y6, 7) = z6
If IsDate(z6) And Cells(y6, 8) = "" And Cells(y6, 9) = "" Then
p6 = p6 + 1
Sheets("Onco-Pedia").Select
Cells(24, 6) = p6
End If
Next y6
On Error GoTo 0