Macro pour rendre formule matricielle

Bonjour,

quelqu'un peut-il m'aider?

je possède 2 macros.

Une qui me permet de placer une formule dans le commentaire d'une cellule et de copier coller valeur la dite formule :

Sub FormuleToComment()

Dim c As Range

'place la formule en commentaire

For Each c In Selection

With c

If Not .Comment Is Nothing Then .Comment.Delete

.AddComment .Formula

.Value = .Value

End With

Next c

End Sub

et une autre qui me permet de faire l'inverse, c'est-à-dire de placer la formule à la place de la valeur dans la cellule et de supprimer le commentaire ;

Sub CommentToFormule()

'remet le texte du commentaire dans la cellule

'et supprime le commentaire

For Each c In Selection

With c

If Not .Comment Is Nothing Then

.Formula = .Comment.Text

.Comment.Delete

End If

End With

Next c

End Sub

Aujourd'hui je suis embêtée car ma formule est matricielle, donc quand il replace la formule dans la cellule elle est correctement copier mais ne devient pas matricielle (ctrl+alt + entrée).

Quelqu'un saurait-il m'écrire la ligne qui va bien pour qu'il fasse cette fameuse manip pour la rendre matricielle à la fin de la macro commentToFormule?

Merci d'avance!!

bien à vous,

Bonjour,

j'ai eu la réponse par ailleurs

il faut remplacer Formula par FormulaArray.

Merci beaucoup!