Bonjour
Je cherche à améliorer mon code
Voici mon code qui me permet de replacer les commentaires de ma feuille
Sub Replace_Comments()
For Each cmt In ActiveSheet.Comments
cmt.Shape.TextFrame.AutoSize = True
cmt.Shape.Top = Range(cmt.Parent.Address).Offset(0, 1).Top + 10
cmt.Shape.Left = Range(cmt.Parent.Address).Offset(0, 1).Left + 10
Next
End Sub
Je voudrais ne pas executer ce code pour la ligne 55.
Pouvez-vous m'aider svp ?
Je vous remercie beaucoup
Cordialement