Bonjour,
Voici un test qui met en gris foncé les cellules contenant un commentaire dans la sélection en cours:
Sub couleurCommentaires()
Dim Cel As Range
For Each Cel In Selection.Cells
If Not Cel.Comment Is Nothing Then
Cel.Interior.Color = RGB(130, 130, 130)
End If
Next Cel
End Sub