Fusionner des valeurs sous excel 2010

Sub SelectionEtConcatenation()
Dim MonTableau() As String
Dim Chaine As String
Dim Plage As Range, Cel As Range, RngDest As Range
Dim j As Integer

Set Plage = Application.InputBox("Sélectionnez une plage !", "Sélection de cellules", Type:=8)
ReDim MonTableau(Plage.Count)
j = 0
For Each Cel In Plage
    MonTableau(j) = Cel.Value
    j = j + 1
Next
For j = 0 To UBound(MonTableau)
    Chaine = Chaine & "; " & MonTableau(j)
Next j
Set RngDest = Application.InputBox("Sélectionnez une cellule !", "Ou voulez vous concaténer vos valeurs?", Type:=8)
    Do While RngDest.Count <> 1
        MsgBox "Merci de sélectionner au moins une cellule, et une seule!"
        Set RngDest = Application.InputBox("Sélectionnez une cellule !", "Ou voulez vous concaténer vos valeurs?", Type:=8)
    Loop
RngDest = Right(Chaine, Len(Chaine) - 2)
Set Plage = Nothing
Set RngDest = Nothing
End Sub