[cbea]

Bonsoir fvg, Guiv,

Voici une autre solution :
- Déclaration d'une procédure :

Sub Detection(Cell As Range)
    ' Effacer le commentaire
    Cell.ClearComments
    ' Si le contenu de la cellule = 0 ou vide, mettre un commentaire
    If Cell.Value = "" Or Cell.Value = 0 Then
        With Cell.AddComment
            .Visible = False
            .Text "Une opération sans frais n'existe pas, merci de corriger"
        End With
    End If
End Sub

- Appel de la procédure :

Call Detection(Worksheets("Montage").Range("B2").Value)