Calcul d'une durée entre deux date

bonjour

voila j'ai une date de souscription, durée de mon contrat(en jours) et date de survenance

j'aimerais avoir une macro qui me dit si la garantit du contrat est terminé ou pas et qu'il me met la réponse en cellule F(oui, non).

    
For i = 2 To DernLigne
            If Day(Cells(i, 7).Value) - Cells(i, 16) > Cells(i, 2) Then
                Sheets("Feuil1").Cells(i, 5).Value = NON
            Else
               Sheets("Feuil1").Cells(i, 5).Value = OUI
            End If
    Next i

merci de votre aide

Bonjour,

La macro ajustée à ton fichier joint.

Sub test()
For i = 2 To 17
If Cells(i, 4).Value - Cells(i, 2) > Cells(i, 3) Then
Sheets("Feuil1").Cells(i, 5).Value = "NON"
Else
Sheets("Feuil1").Cells(i, 5).Value = "OUI"
End If
Next i
End Sub

La même en couleur :

Sub test()
For i = 2 To 17
Sheets("Feuil1").Cells(i, 5).Value = IIf(Cells(i, 4).Value - Cells(i, 2) > Cells(i, 3), "NON", "OUI")
Next i
End Sub

A+

super sa marche merciii

pq quand je met rien a la cellule duré du contrat sa marche qd mm