Sub Macro6() Dim Concat As String
Dim Rng As Range, Concat As String
Set Plage = Application.InputBox("Sélectionnez une plage !", "Sélection de cellules", Type:=8)
For Each rng In Plage
Concat = Concat & rng & ";"
Next rng
Sheets.Add.Range("a3") = Mid(Concat, 1, Len(Concat))
End Sub