'Comparaison <1mois
ii = 0
For yu = 1 To derldate
If Cells(yu, 14).Value = "" Then
X = g - Cells(yu, 13).Value
Else
X = Cells(yu, 14).Value - Cells(yu, 13).Value
End If
If X <= 31 And Cells(yu, 14).Value <> "" Then
ii = ii + 1
End If
Next yu
Cells(derl + 10, 10).Value = ii