Sub AjoutCommentaire()
    Range("A1").AddComment
    Range("A1").Comment.Text Text:="Le Forum Excel" & Chr(10) _
        & "sur le site Developpez.com"
    
    With Range("A1").Comment.Shape
        .Width = 130 'Largeur commentaire
        .Height = 90 'Hauteur
        .OLEFormat.Object.Font.Size = 14 'Taille du texte
        .OLEFormat.Object.Interior.ColorIndex = 34 'Couleur de fond
        .TextFrame.Characters.Font.ColorIndex = 11 'Couleur de la police
        .TextFrame.Characters.Font.Bold = True 'Ecriture gras
        .OLEFormat.Object.Font.Name = "Bangle" 'Type de police
    End With
End Sub

Sub ControleExistenceCommentaire()
    If Range("A1").Comment Is Nothing Then
        MsgBox "Il n'y a pas de commentaire dans la cellule A1."
        Else
        MsgBox "Il y a un commentaire dans la cellule A1."
    End If
End Sub

Sub listeCommentairesfeuilleActive()
    Dim Cmnt As Comment
    Dim Liste As String
    
    'Compte le nombre de commentaires dans la feuille
    If ActiveSheet.Comments.Count = 0 Then Exit Sub
    
    'Boucle sur les commentaires
    For Each Cmnt In ActiveSheet.Comments
        'Récupère l'adresse de la cellule et le contenu
        Liste = Liste & Cmnt.Parent.Address & " = " & _
        Cmnt.Text & Chr(10) & Chr(10)
    Next Cmnt
    
    MsgBox Liste
End Sub

Sub modificationCommentaires()
    Dim Cmnt As Comment
    Dim Cible As String
    Dim i As Integer, Valeur As Integer
    
    If ActiveSheet.Comments.Count = 0 Then Exit Sub
    
    For Each Cmnt In ActiveSheet.Comments
        Cible = Cmnt.Text
        
        For i = 1 To Len(Cible)
            Valeur = InStr(i, Cible, "DVP", vbTextCompare)
            If Valeur = 0 Then
                Exit For
                Else
                Cmnt.Shape.TextFrame.Characters(Valeur, 3).Font.ColorIndex = 3
                i = Valeur + 4
            End If
        Next i
    Next Cmnt
End Sub

Sub collageCommentaire()
    'Copie le contenu de la cellule A1
    Range("A1").Copy
    'Colle le commentaire dans la cellule A2
    Range("A2").PasteSpecial Paste:=xlPasteComments
End Sub

Range("A1").Comment.Shape.TextFrame.AutoSize = True

With Range("A1")
    .AddComment
    .Comment.Shape.Fill.UserPicture "C:\dossier\NomImage.jpg"
End With

Sub CopieContenuCommentaires_Word()
    Dim Cmt As Comment
    Dim WordApp As Object
    
    'Ouvre une session Word
    Set WordApp = CreateObject("Word.Application")
    
    With WordApp
        .Visible = True
        'Ajoute un nouveau document dans Word
        .Documents.Add
        
        'Boucle sur les commentaires de la Feuil1
        For Each Cmt In Worksheets("Feuil1").Comments
            .Selection.TypeText "Cellule: " & Cmt.Parent.Address & vbCrLf & Cmt.Text
            .Selection.TypeParagraph
            .Selection.InsertBreak Type:=6  '(wdLineBreak) insert un saut de ligne
        Next
    End With
    
    Set WordApp = Nothing
End Sub