Sub machin()
Dim datas, result(), lig As Long, col As Long, i As Long
datas = [A1].CurrentRegion.Value
ReDim result(1 To UBound(datas), 1 To 5)
For lig = 4 To UBound(datas)
For col = 2 To 101 Step 5
For i = 1 To 5
result(lig, i) = result(lig, i) & datas(lig, col + i - 1) & ","
Next i
Next col
Next lig
[CX1].Resize(UBound(datas, 1), 5) = result
[CX3:DB3].Value = [B3:F3].Value
End Sub