recopier dans une autre feuille le contenu d'une cellule ainsi que son commentaire

Function RécupSpc(Cel As Range) As Variant
Dim Résu(1 To 15) As Variant, Spl() As String, S As Long
Résu(1) = Cel.Offset(0, -1).MergeArea.Rows(1).Value
Résu(2) = Cel.EntireColumn.Rows(1).Value
Spl = Split(Cel.Value, " à "): Résu(3) = Spl(0)
Spl = Split(Spl(1), vbLf): Résu(4) = Spl(0)
Spl = Split(Spl(1), " RDV "): Résu(5) = Spl(0)
Spl = Split(Spl(1), "h"): Résu(6) = TimeSerial(Spl(0), Spl(1), 0)
Spl = Split(Cel.Comment.Text, vbLf)
For S = 7 To 15: Résu(S) = Split(Spl(S - 7), ":")(1): Next S
Spl = Split(Résu(14), "/"): Résu(14) = DateSerial(Spl(2), Spl(1), Spl(0))
RécupSpc = Résu
End Function

=RécupSpc(Feuil1!B3)

Feuil1.Cells(3, 1).Resize(, 15).Value = Résu