Souci avec code pour afficher msgbox de dates d'échéance

Bonjour,

Mon but était de créer une msgbox qui m'informerait des dates d'échéance "dépassées" et une autre "à venir", concernant les contrôles de véhicules.

Comme d'habitude, après plusieurs jours de recherche, j'ai enfin trouvé un code et réussi à l'adapter à mon cas, mais seulement à 99%.

Les msgbox s'affiche correctement mais elle met tous des 1 au lieu du nom des véhicules.

Je suppose que le problème vient de cette ligne :

        If today > Cel.Value Then resultat = resultat & Cel.Row & Chr(13) & Chr(10)

Mais je ne sais pas comment lui dire d'aller chercher la colonne 2 de la cellule en cours, pour afficher le nom des véhicules

Ci-joint le fichier car j'ai conscience que ce que je dis n'est pas très clair. Le code est dans le module 1.

Merci à vous.

J'ai trouvé. Il fallait mettre "Cel.Offset(0, -3)" à la place de "Cel.row".

Bizarre, car quand je l'ai testé la première fois, un message d'erreur s'était affiché.

Merci de m'avoir lu et bonne soirée à tous.