grouper et convertir excel en texte

Sub Macro1()
Position = 1
For i = 1 To Range("A65535").End(xlUp).Row
If Left(Cells(i, 1), 1) = "A" Then
Position = i
Cells(Position, 3) = Cells(i, 1)
Else
Cells(Position, 3) = Cells(Position, 3) & "," & Cells(i, 1)
End If
Next i
End Sub

Function ConCat(Delimiteur As Variant, ParamArray CellRanges() As Variant) As String
Dim Cell As Range, Area As Variant
If IsMissing(Delimiteur) Then Delimiteur = ""
   For Each Area In CellRanges
     If TypeName(Area) = "Range" Then
       For Each Cell In Area
         If Len(Cell.Value) Then ConCat = ConCat & Delimiteur & Cell.Value
       Next
     Else
       ConCat = ConCat & Delimiteur & Area
     End If
   Next
ConCat = Mid(ConCat, Len(Delimiteur) + 1)
End Function

=CONCAT("Delimiteur";PLAGE)