encore un "détail", dans ma feuille excel BD, j'ai ajouté à 2 lignes de la fin du tableau, des sous totaux. Ceux-ci se retrouvent dans la ListBox avec la commande : Set Rng = f.Range("D2:Z" & f.[A65000].End(xlUp).Row)
comment puis-je remplacer le A65000 par le calcul de la dernière ligne de...