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 : Sélectionner tout - Visualiser dans une fenêtre à part
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