Optimisation lecture commentaires excel

Bonjour dans un programme que j'ai crée , je cherche a lire les commentaires d'une colonne cellule ce qui me prend enormement de temps auriez vous des idées pour optimiser ce code?

Merci d'avance

Code:

---

1 2 3 4 5 6 7 8 9 10 11

For i = 3 To DerniereLigne   On Error Resume Next comment_text = osheet.Cells(i, col_sourc).Comment.text osheet.Cells(i, col_dest).Value = comment_text comment_text = vbNullString osheet.Cells(i, col_sourc).ClearComments() 'suppression commentaire On Error GoTo 0   Next

---

Bonjour,

Cela va afficher osheet.Cells(i, col_sourc).Comment.text ici osheet.Cells(i, col_dest) puis enlever les commentaires osheet.Cells(i, col_sourc)

Au lieu de parcourir les cellules, tu dois pouvoir parcourir directement les commentaires : osheet.Comments.