Extraction des commentaires

Bonjour
J'ai parcouru le forum, mais n'ai pas trouvé de solution à mon problème :

Dans une macro, je parcours une colonne. Je voudrais tester la présence d'un commentaire dans chaque cellule pour le recopier dans la cellule voisine.
Seul le test m'échappe ...

Toute suggestion sera bienvenue. Merci

Salut thtfr et le forum
Si tu ne peux trouver les commentaires d'une cellule, fais l'inverse : trouve les commentaires et rattache-les à leurs cellules

Code:

---

1 2 3 4 5 6 7

Sub test() Dim X As Comment Dim y For Each X In ActiveSheet.Comments X.Parent.Offset(0, 1) = X.Text Next X End Sub

---

A+

Il fallait y penser ... Merci