Problème macro

Bonjour,

J'ai eu des réponses à mon problème que j'avais posé sous "bureautique" avec mes excuses.

Par contre ça ne marche toujours pas, soit :

ActiveCell.Select
ActiveCell.AddComment
ActiveCell.Comment.Visible = False
ActiveCell.Comment.Text Text:="comptabilite:" & Chr(10) & ""
Selection.ShapeRange.LockAspectRatio = msoFalse
Selection.ShapeRange.Height = 174.75
Selection.ShapeRange.Width = 218.25
Range("A1").Select
End Sub

Il bloque sur la ligne "Selection.ShapeRange.LockAspectRatio = msoFalse"

Si c'est possible ça serait sympa de mettre le texte complet, aussi pour une plage de cellule.

Merci