Function afficheCmt(cel, cond, msg, coul)
Application.Volatile
Set f = Sheets(Application.Caller.Parent.Name)
temp = Evaluate(cond)
If Not cel.Comment Is Nothing Then cel.Comment.Delete
If temp Then
With cel
If .Comment Is Nothing Then .AddComment
.Comment.Shape.Width = Len(msg) * 5
.Comment.Shape.Height = 10
.Comment.Shape.Left = .Left + .Width + 5
.Comment.Shape.Top = .Top - 10
.Comment.Visible = True
.Comment.Text Text:=msg
.Comment.Shape.Fill.ForeColor.SchemeColor = coul
End With
End If
afficheCmt = ""
End Function