Incompatibilité de type sur format date

Bonjour, J'essaye simplement de récupérer une valeur en soustrayant deux dates, la date du jour et celle récupéré dans une cellule.

Cependant sa bloque sur une incompatibilité pour la DateDevis...

Je sèche un peu la, merci pour l'aide !

Sub relance()
Dim DateDevis As Date, DateJour As Date
Dim i As Integer, ligne As Integer

ligne = Cells(Rows.Count, 8).End(xlUp).Row
DateJour = Date

For i = 1 To ligne
    DateDevis = Cells(i, 8).Value
Next

End Sub

Bonjour,

Essaie :

DateDevis = CDate(Cells(i, 8).Value)

Cordialement.

Merci pour la réponse rapide.

Cependant il me ressort toujours une incompatibilité de type sur le variable DateDevis

Autant pour moi ça fonctionne, je commençais mon i à 1, or la première ligne est un titre et non une date.....

Merci encore

Si tu veux qu'on puisse chercher l'anomalie.

edit : si réglé, Ok. A+