Démarrer une fonction avec un bouton

Option Explicit
'-------
Sub concatener_cellules()
Dim Cellule As String, Concat As String, Rep As Byte
Rep = 0
Do Until Rep = 7
    Cellule = Application.InputBox(prompt:="cliquer sur cellule", Type:=8)
    Concat = Concat & Cellule & " "
    Rep = MsgBox("autre cellule ?", vbYesNo)
Loop
Range("D5") = Concat
End Sub

Sub test()
Dim concatene As String
Dim UserRange As Range
On Error GoTo Canceled
Set UserRange = Application.InputBox(Prompt:="Please Select Range", Title:="Range Select", Type:=8)

'On concatene :
For Each cell In UserRange
 concatene = concatene & cell.Value
Next

Debug.Print concatene
Range("D5").Value = concatene
Exit Sub

Canceled:
    Debug.Print "Erreur !"
    Exit Sub
End Sub