XL 2010 Comment rendre le contenu de toute une colonne en une cellule?

Function Joindre(rng As Range)
    Dim valeurs As Variant
    If rng.Columns.Count > rng.Rows.Count Then
        Set rng = rng.Rows(1)
        valeurs = Application.Transpose(Application.Transpose(rng.Value))
    Else
        Set rng = rng.Columns(1)
        valeurs = Application.Transpose(rng.Value)
    End If
    Joindre = Join(valeurs, ";")
End Function

' exemple de récupération de  colonne vers une variable tableau 1 dim puis string
Sub recup_col()
'récupération colonne 1 en string
    Dim plage, colon&
    plage = Range("A2:Z9000").Value    'rng to variable tableau 2 dim
    colon = 1
    plage = WorksheetFunction.Index(plage, 0, colon)    '(on obtient un tableau(2 dim)
    Debug.Print Join(Application.Transpose(plage), ";")    ' conversion en 1 dim et  en string
End Sub

' exemple de récupération de ligne  vers une variable tableau 1 dim puis string
Sub recup_lig()
'récupération ligne 1 en string
    Dim plage, ligne&
    plage = Range("A2:z100").Value    'rng to variable tableau 2 dim
    ligne = 1
    plage = WorksheetFunction.Index(plage, ligne, 0)  '(on obtient un array(1 dim)
    Debug.Print Join(plage, ";")
End Sub