Insérer automatiquement des commentaires une macro

Bonjour à tous,

J'aimerais insérer automatiquement des commentaires sur de centaines de lignes. Les commentaires à insérer sont définies sur la colonne C et les commentaires sont à insérer sur la colonne B. J'ai mis en place une macro (fichier ci dessous) qui le fait seulement pour une ligne et j'aimerais que cela se fasse sur toutes les lignes non vides de la colonne B de mon fichier. De plus, lorsqu'il n'y a pas d'informations sur la colonne C ou que si une cellule dans C = 0, alors ne pas mettre de commentaires. Pourriez-vous s'il vous plait m'aider ?

Je vous remercie d'avance et je reste disponible pour toute question afin de mieux comprendre mon souci.

PL.

Bonjour et bienvenue,

Joins un petit fichier et je pense que ta question sera résolue rapidement, très rapidement !...

Cdlt.

Merci c'est gentil.

J'ai modifié le texte et rajouté un fichier pour un meilleur traitement.

Merci encore.

Bonjour,

Une première réponse.

ALT F8, exécuter la procédure AddComments.

Cdlt.

Public Sub AddComments()
Dim cmt As Comment, n As Long, I As Long
Dim str1 As String, str2 As String
    With ActiveSheet
        n = .Cells(.Rows.Count, 2).End(xlUp).Row
        For I = 5 To n
            If Not IsEmpty(.Cells(I, 3)) Then
                With .Cells(I, 2)
                    On Error Resume Next
                    Set cmt = .Comment
                    If Err = 0 Then
                        Err.Clear
                        cmt.Delete
                    End If
                    Set cmt = .AddComment
                    str1 = Application.UserName & ":" & Chr(10)
                    str2 = ActiveSheet.Cells(I, 3).Text
                    cmt.Text Text:=str1 & str2
                    cmt.Visible = False
                End With
            End If
        Next I
    End With
End Sub

Wow !

Merci beaucoup pour ta réponse Jean-Eric, et bien sûr ça fonctionne bien.

C'est super gentil de ta part.