Sub EssAi()
Dim C As Range
For Each C In Range("B1:B1000")
With C
.ClearComments
If C.Offset(, -1) = "X" And .Comment Is Nothing Then
.AddComment
.Comment.Shape.OLEFormat.Object.Font.Size = 8
.Comment.Shape.OLEFormat.Object.Font.FontStyle = "Normal"
.Comment.Text Text:="svp remplir"
.Comment.Shape.TextFrame.AutoSize = True
End If
End With
Next C
End Sub