Salut
Si tu execute en mode pas a pas ou que tu breack sur la ligne
TabPlage = Application.Union(Range("premiereplage"), Range("deuxiemeplage"), Range("troisiemeplage"), Range("quatriemeplage")).Value
et que tu regardes une fois cette ligne exécuté le contenu de TaPlage, tu vas te rendre compte que visiblement l'union n'est pas accepté lors de cette écriture, je veux pas dire de bêtise mais tu ne peux pas écrire ça avec une sélection discontinu.
Pour faire ce que tu veux faire, il va falloir renseigner ta collection en 4 fois
tabplage = premiereplage
renseigner collection
tabplage = 2emeplage
ajouter es nouvelles entrées a ta colection
tabplage = 3emeplage ..
....
A++
Qwaz
Partager