XL 2010 bug fonction circulaire

Function CAformat(cells_c As Range) As String
'je dois récapituler en D1 en gardant tous les formats des cellules
Dim tmp, ch As String, ad As Range, i As Long, j As Long
    tmp = cells_c.Value
    y = Application.Caller.Address
    a = cells_c.Count
        For Each c In cells_c
        ch = ch & c.Value & " "
        Next c
  CAformat = ch 'ici
  i = 1
        For j = 0 To a - 1
            With Range(y).Characters(i, Len(tmp(j + 1, 1)) + 1).Font
                .Color = cells_c.Cells(1).Offset(j).Font.Color
                .Bold = cells_c.Cells(1).Offset(j).Font.Bold
                .Italic = cells_c.Cells(1).Offset(j).Font.Italic
            End With
            i = i + Len(tmp(j + 1, 1)) + 1
        Next j
    'CAformat=  LE RESULTAT EN D1 DEVRAIT ËTRE ICI ?????
End Function

Function CAformat(cells_c As Range)
Dim a(), i&
ReDim a(1 To cells_c.Count, 1 To 3)
For i = 1 To cells_c.Count
    With cells_c(i).Font
        a(i, 1) = .Color
        a(i, 2) = .Bold
        a(i, 3) = .Italic
    End With
Next
CAformat = a 'matrice
End Function