Grouper un tableau dans une meme cellule

Sub regroupement()  
Dim Plage As Range, Dest As Range, Cel As Range  
Dim TabloStr() As String, TabloNbr() As String  
Dim i As Integer  

    Set Plage = Application.InputBox("Sélectionnez la plage de cellule que vous voulez regrouper", "Sélection de cellules", Type:=8)  
        If Len(Plage.Address) < 5 Then  
            MsgBox "merci de sélectionner plus d'une cellule"  
            Exit Sub  
        End If  
        i = 0  
        For Each Cel In Plage  
            If IsNumeric(Cel.Value) Then  
                ReDim Preserve TabloNbr(i)  
                TabloNbr(i) = "(" & Cel.Value & ")"  
                i = i + 1  
            End If  
        Next  
        i = 0  
        For Each Cel In Plage  
            If Not IsNumeric(Cel.Value) Then  
                ReDim Preserve TabloStr(i)  
                TabloStr(i) = Cel.Value  
                i = i + 1  
            End If  
        Next  
    Set Dest = Application.InputBox("Sélectionnez la cellule de destination", "Sélection de cellules", Type:=8)  
        For i = 0 To UBound(TabloStr)  
            Dest.Value = Dest.Value & TabloStr(i) & " " & TabloNbr(i) & " "  
        Next  
        Dest.Value = Left(Dest.Value, Len(Dest.Value) - 1)  
    Set Plage = Nothing  
    Set Dest = Nothing  
End Sub