Option Explicit
Sub COMPLETUDE()
Dim ColDate&, Te(), Le&, TLgn&(), Ts(), Ls&, Ls1erBU&, Ls1Acti&, _
BU As SsGroup, ACTI As SsGroup, Prog As SsGroup, PRESTA As SsGroup, _
Montant As Currency, Détail, c&, Cel As Range
Rem. ——— Chargement des données
With FBase.ListObjects("BASE").Range