Pour ma part en étant sur la feuille Bilan (feuille avec les données) en lançant le code, j'ai une erreur 13 sur la première ligne :
d = Application.Index(Application.LinEst(.Range(.Cells(99, N1), .Cells(Lmax, N1)), Application.Power(.Range(.Cells(99, 1), .Cells(Lmax, 1)), Array(1, 2))), 1)...
@ bientôt
LouReeD