Merge de ligne

Bonjour à tous,

J'ai un petit soucis avec la fonction merge.

Je dispose d'une plage de cellules (disons N lignes et M colonnes) que je souhaiterai merger afin d'obtenir uniquement des lignes (N lignes et 1 colonne).

Je sais le faire en passant par une boucle mais bonjour le temps d’exécution...

Je vous joints mon code avec la boucle.

Code:

---

1 2 3 4 5 6 7 8 9

For i = 1 To Lignes Ligne_Merge = 23 + i Range("D" & Ligne_Merge & ":E" & Ligne_Merge).Select With Selection .HorizontalAlignment = xlCenter .VerticalAlignment = xlBottom .MergeCells = True End With Next i

---

Ma question : Existe-t-il un moyen de le faire sans passer par une boucle ?

Merci d'avance ^^

Salut,

Il faut "merger" la première ligne et ensuite la copier/coller sur l'ensemble de la plage.