Sub TEMPO()
Application.DisplayCommentIndicator = xlNoIndicator
With Range("C7")
.ClearComments 'au cas où
.AddComment "NE PAS OUBLIER LE SI DU SECOND CODE DR"
.Comment.Visible = True
DoEvents
If Application.Wait(Now + TimeValue("00:00:03")) Then .ClearComments
End With
Application.DisplayCommentIndicator = 0
End Sub