Function TrouverCours(PlageX As Range, PlageY As Range, Datedébut, DateCherchée)
MatX = "A" & Application.Match(Datedébut, PlageX, 0) & ":A" & Application.CountA(PlageX)
MatY = "B" & Application.Match(Datedébut, PlageX, 0) & ":B" & Application.CountA(PlageX)
MatDroitereg = Application.LinEst(Range(MatY), Range(MatX))
TrouverCours = MatDroitereg(1) * CDate(DateCherchée) + MatDroitereg(2)
End Function