Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Dim Wks As Worksheet, Cmt As Comment
For Each Wks In Worksheets
For Each Cmt In Wks.Comments
Cmt.Shape.OLEFormat.Object.AutoSize = True
'pour changer la couleur de la police
Cmt.Shape.TextFrame.Characters(Pos, Len(LaChaine)).Font.ColorIndex = 3 'rouge
With Cmt.Shape.OLEFormat.Object.Font
.Name = "castellar" 'change la police
.Size = 12 'change la taille de la police
End With
Cmt.Shape.OLEFormat.Object.ShapeRange.Fill _
.ForeColor.SchemeColor = 42 'index de la couleur de fond
With Cmt
.Visible = False
.Text Text:="La Vouivre:" & Chr(10) & ""
.Shape.AutoShapeType = msoShapeCross
.Shape.Shadow.Type = msoShadow12
.Shape.Shadow.ForeColor.SchemeColor = 14
.Shape.Shadow.Visible = msoTrue
.Shape.ThreeD.Visible = msoFalse
End With
Next Cmt
Next Wks
End Sub