CreateCommentIndicator:
'je pense que c'est ici qu'il faut faire des modifications
'j'ai bien essayé avec Offset (que j'ai remis ici à 0), mais sans succés...
[COLOR=DarkRed] colonne = aCell.MergeArea.Column + aCell.MergeArea.Columns.Count - 1
ligne = aCell.Row
coté = 5
[/COLOR] Set aShape = aWorksheet.Shapes.AddShape(Type:=msoShapeRightTriangle, _
Left:=[COLOR=DarkRed]Cells(ligne, colonne)[/COLOR].Left + [COLOR=DarkRed]Cells(ligne, colonne)[/COLOR].Width - [COLOR=DarkRed]coté[/COLOR], Top:=[COLOR=DarkRed]Cells(ligne, colonne)[/COLOR].Top, Width:=[COLOR=DarkRed]coté [/COLOR], Height:=[COLOR=DarkRed]coté[/COLOR])
IDnumber = IDnumber + 1