Bonjour Leagr, bienvenue sur XLpages.com 

Pas facile de voir l'effet de ta procédure VBA sans avoir un minimum de données pour tester...

Je te conseille de joindre un fichier exemple de données (anonymisées) en pièce jointe à ton post.

Quelques lignes de données seulement devraient suffire (avec entêtes de colonne).

Le cas échéant, voir :

Comment joindre un fichier dans le Forum ?

(Attention, fichier excel si possible zippé, et de 120 Ko maximum)

Dans l'attente, je t'informe que dans ta ligne :

.Cells(ligne_result, 7).Date = .Cells(lignei, 1).Date

Cette ligne devrait déjà te générer une erreur VBA car la propriété "Date" n'est pas une propriété reconnue pour un objet "Cells".

Bien cordialement,