I have this code,

I use it to transpose a list of numbers and then separate them with a comma,
It works well for every list, if numbers are between 0 and 99.

However if the list of numbers contains numbers with more than 2 characters, then, the code will give the attended result, only if at least one number in the list has 2 characters or less.

If I have a list of numbers with > 2 characters, then it will give me the transposed number without the comma separator.

Could you please advise

```
Option Explicit
Sub colonne_a_ligne()

'On compte le nombre de Trades
Dim Number_of_Trade As Integer
Number_of_Trade = Worksheets("Feuil1").Range("A:A").Cells.SpecialCells(xlCellTypeConstants).Count
Dim m As Integer
m = Number_of_Trade + 1

'On transpose les trades en ligne
  Dim sourceRange As Range
  Dim targetRange As Range

  Set sourceRange = ActiveSheet.Range(Cells(1, 1), Cells(Number_of_Trade, 1))
  Set targetRange = ActiveSheet.Cells(2, 2)

  sourceRange.Copy
  targetRange.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=True

'On met en forme dans le format 
   Dim sisk As String
    Dim row As Long
    Dim col As Long

    For row = 2 To 2
        sisk = vbNullString
        For col = 2 To m
            If VBA.Len(sisk) Then sisk = sisk & ","
            sisk = sisk & Cells(row, col)
        Next col

        Worksheets("Feuil1").Cells(3, 2) = sisk

    Next row

End Sub

```

[![Case 1](https://i.stack.imgur.com/NFCa0.png)](https://i.stack.imgur.com/NFCa0.png)

[![Case 2](https://i.stack.imgur.com/lGoNH.png)](https://i.stack.imgur.com/lGoNH.png)

[![Case 3](https://i.stack.imgur.com/8DrPg.png)](https://i.stack.imgur.com/8DrPg.png)