دمج عدة خلايا في خلية واحدة

Option Explicit



Sub concat()

Dim ar(), Itm

Dim stR$

Sheets("Feuil1").Range("N11").ClearContents

ar = Array("H5", "D11", "H11", "C12", "F12", "H12" _

, "i12", "E15", "F15", "G15", "K15", "G17", "H17", "J17")

  For Each Itm In ar

   stR = stR & " " & Sheets("Feuil1").Range(Itm)

  Next

Sheets("Feuil1").Range("N11") = stR

End Sub