Avé le forum
...Pas trouvé sur ce site, mais en fouinant,
pour ceux que ça intéresse, j'ai trouvé ceci :
Sub Macro()
Dim x As Byte
For x = 4 To 9
With Range("g" & x)
.ClearComments
.AddComment
.Comment.Visible = False
.Comment.Text Text:="blabla"
With .Comment.Shape
.TextFrame.AutoSize = True
.Fill.ForeColor.SchemeColor = 20
.Fill.Transparency = 0.1
.Line.ForeColor.SchemeColor = 61
.Line.Weight = 2#
.IncrementLeft -100
With .OLEFormat.Object
With .Font
.Name = "Tahoma"
.Size = 12
.ColorIndex = 6
.Bold = False
End With
End With
End With
End With
Next x
End Sub
Merci quand même !
Edition: Par Mytå, pour mise en place de la balise Code