Créer une formule de concatenation

Bonjour à tous,

Je cherche à faire une macro qui concatenerait le contenu de toutes les cellules d'une sélection (Celles ci provenant déjà d'une cellule quelconque)
J'ai un peu avancé et j'arrive à écrire ma formule dans la cellule, mais malheureusement il semble que cela ne soit que du texte, cela ne fonctionne pas.
Quelqu'un peut il m'aider ?

Merci d'avance !
Voici mon code :

Sub fonction()
'
'
Dim cellule As Range
Dim nb As Integer
Dim form As String

ligne = ActiveCell.Row
col = ActiveCell.Column

For Each cellule In Selection
' formule quelconque
 ActiveCell.FormulaR1C1 = "=IF(RC[-1]=0,RC[-1]&""m "",)"
  
ActiveCell.Offset(1, 0).Range("A1").Select
nb = nb + 1
' variable permettant d'écrire la formule de concatenation

form = "R[-" & nb & "]C&" & form

Next
 ' afficher la variable :MsgBox form
 

 ActiveCell.FormulaR1C1 = " = " & form & ""
  
 ActiveCell.Select

End Sub