With Feuil1 'Codename
For Each c In .Range("A5", .Range("A" & .Rows.Count).End(xlUp)(5))
If c <> "" And Not c.Rows.Hidden Then d(c & Chr(1) & c(1, 2)) = ""
Next
par :
Code:
With Feuil1 'Codename
On Error Resume Next
For Each c In .Range("A5", .Range("A" & .Rows.Count).End(xlUp)(5)).SpecialCells(xlCellTypeVisible)
If c <> "" Then d(c & Chr(1) & c(1, 2)) = ""
Nex
t
Avec 100 000 lignes UserForm_Initialize s'exécute maintenant en 2,9 secondes.
Prenez donc ce fichier puisque c'est un peu mieux.