Bonjour
Installe ce petit code et lance la macro deb()
Public Const mot = "MV"
Sub deb()
For Each i In Sheets(1).UsedRange 'pour chaque cellule utilisée dans la feuille 1
On Error Resume Next
commentaire = ""
commentaire = i.Comment.Text 'commentaire= le commentaire de la celule
'Si pas de commentaire erreur, on ne fait rien
On Error GoTo 0
If testcomment(commentaire) = True Then 'test si le commentaire contient le mot recherché
i.Interior.Color = RGB(255, 0, 0) 'si le test est vrai mise en roouge de la cellule
End If
Next
End Sub
Function testcomment(c)
If InStr(1, c, mot) <> 0 Then testcomment = True
End Function