Sub commentaires()
For Each cel In ActiveSheet.Range("A1").CurrentRegion
If cel.Interior.Color = 255 Then
On Error Resume Next
cel.Comment.Delete
On Error GoTo 0
cel.AddComment
With cel.Comment
.Shape.Height = 16.5
.Shape.Width = 82.5
.Text Text:="ABCDEF"
.Visible = True
End With
End If
Next
End Sub