Function AfficheCmt(cel, msg, coul) ' qui ajoute commentaire avec condition
On Error Resume Next
Application.Volatile
Set f = Sheets(Application.Caller.Parent.Name)
If Not cel.Comment Is Nothing Then cel.Comment.Delete
If cel.Offset(, 35) = "" Then Exit Function
With cel
If .Comment Is Nothing Then .AddComment
--------
-------
End With
AfficheCmt = ""
End Function