Accélération code

Bonjour à tous,

J'ai une base de données (BDD_TAB.xslx") composée de 15 colonnes et pouvant atteindre jusqu'à 25 000 lignes voir plus. La première colonne de cette base de données contient des ages.

Cette base de données me permet d'alimenter une listview reprennant l'ensemble des colonnes en fonction de l'age retenu.

Mon code est organisé de la façon suivante :

Dim tab_BDD()
derligneBDD = Workbooks("BDD_TAB.xlsx").sheets("BDD_TAB").range("A65536").end(xlup).row
Redim tab_BDD(derligne -1, 14)

with workbooks("BDD_TAB.xlsx").sheets("BDD_TAB")

for a = 1 to 15

for i = 1 to derligneBDD

tab_BDD(i-1,a-1) = .cells(i,a )

next i

next a

end with

ageretenu = range("A1")

for i = 0 to derligneBDD - 1

if tab_BDD(i,0) = ageretenu then

listview1.listitems.add , , tab_BDD(i,1)
.... (et autres colonnes en list subitems)

End if

next i

Le traitement est long aussi j'aimerai savoir si ce code peut être optimisé et si vous pourriez éventuellement m'aiguiller sur la bonne direction.

Merci beaucoup pour votre aide.

Très bonne journée à tous !!