Option Explicit
Sub Essai()
FontArray([B1].Font) = FontArray([A1].Font)
End Sub
Property Let FontArray(ByVal Font As Font, T())
Font.Color = T(0)
Font.Bold = T(1)
Font.Name = T(2)
Font.Size = T(3)
End Property
Property Get FontArray(ByVal Font As Font) As Variant()
FontArray = Array(Font.Color, Font.Bold, Font.Name, Font.Size)
End Property