last

Bonsoir le forum, Le code testé sur 40 lignes fonctionne sans encombre, mais rame sans fin avec 1700 lignes Quelqu'un pourrait-il m'indiquer une bonne façon d'alimenter cette ListBox triée alphabétiquement : Private Sub UserForm_Initialize() Dim wsBD As Worksheet, lastCell As Integer, lastRow...