re-Bonjour DanC,

Tu trouveras en pièce jointe peut-être une solution à ton problème.

J'ai utilisé le code VBA suivant :

DANS LE MODULE DE CODE DE LA FEUILLE

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
'-------------------------------------------------------------------------------
' Auteur    : Didier FOURGEOT (myDearFriend!)  -  www.mdf-xlpages.com
' Date      : Août 2014
'-------------------------------------------------------------------------------
Dim FC As FormatCondition
Dim CommT As String
    If Not Application.Intersect(Target(1), _
        Cells.SpecialCells(xlCellTypeAllFormatConditions)) Is Nothing Then
        With Target(1)
            For Each FC In Target.FormatConditions
                If FC.Type = xlExpression Then
                    If FC.Formula1 Like "*mDF()*" Then
                        CommT = Switch( _
                                .Value = "A", "Agréable", _
                                .Value = "B", "Beau", _
                                .Value = "C", "Classique", _
                                .Value = "D", "Discret", _
                                .Value <> "A", "" _
                                )
                        .ClearComments
                        If CommT <> "" Then .AddComment CommT
                    End If
                End If
            Next FC
        End With
    End If
End Sub

Voir explications de fonctionnement dans le classeur.

En espérant que ça puisse t'être utile.

Bien cordialement,