Bonjour,
Quelque chose comme ceci devrait aller, à adapter à votre code et à la taille de votre tableau:
Lig = Application.Match(CDbl(Date_Cherchee), Range("D1:D1000"), 0)
Range("A" & Lig & ":K" & Lig).Interior.ColorIndex = 4
Cells(Lig, "J") = EER
Cdlt