Bonjour Mchbani, le Forum.
Tu peux utiliser la fonction suivante :
Function ExisteCommentaire(R As Range) As Boolean
ExisteCommentaire = Not R.Comment Is Nothing
End Function
Pour tester la cellule active :
MsgBox "Y a t'il un commentaire dans la cellule active ?" & vbCrLf & ExisteCommentaire(ActiveCell)
Cordialement,
Didier_mDF