Trier et copier dans un nouvel onglet automatiquement

Bonjour gmb

j'ai regardé le code et la ligne

tablo = fb.Range("J2:J" & fb.Range("J" & Rows.Count).End(xlUp).Row)

For i = 1 To UBound(tablo, 1)

donne 988884 data

j'ai mis

last = [J100000].End(xlUp).Row

tablo = fb.Range("J2:J" & last)

For i = 1 To UBound(tablo, 1)

donne 10050

ça accélère un peu la chose

cdlt

Patrick

bonjour Patrick

OK tu as raison.

En mettant une instruction timer pour mesurer le temps d’exécution de la macro, j’ai pu constater qu’on passe sur mon PC de 8 secondes à 0,18 seconde. Ce n’est pas négligeable.

Merci pour l’idée : je ne pensais pas que cela pouvait tant améliorer les choses. Je m’en resservirai.

Bye !