Et ça ne vous est pas venu à l'idée de devoir le mettre avec les autres CL.Add, impérativement avant CL.Actualiser ? J'ai vraiment l'impression que vous n'avez rien étudié de l'aide de CBxL.
Et ne lancer qu'après avoir nettoyé la RowSource de la ComboBox, sinon même punition: Permission refusée.
Par ailleurs la Sub ÉclaterParAgences n'est toujours pas bonne: Le tableau TAg, qui est bien construit, lui, n'est toujours encore versé à la fin, pour chaque feuille d'agence, que dans une seule ligne, celle qui suit la plage de la ligne des entêtes du tableau. Le Resize(UBound(TAg, 1)) ou Resize(Ubound(TLAg)) n'a toujours pas été ajouté pour l'étendre au nombre de lignes à verser.