Bug macro Note en format automatique

Bonjour,

J'ai un souci sur une macro que j'ai créé à chaque changement de cellule.

Si une note est présente, je souhaite la mettre en taille automatique. La macro fonctionne sans problème :

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)

If Not ActiveCell.Comment Is Nothing Then
ActiveCell.Comment.Visible = True
ActiveCell.Comment.Shape.Select True
With Selection
.HorizontalAlignment = xlLeft
.VerticalAlignment = xlTop
.ReadingOrder = xlContext
.Orientation = xlHorizontal
.AutoSize = True
End With
ActiveCell.Comment.Visible = False
End If

End Sub

Mon problème est que lorsque je survole une cellule avec un commentaire celui si s'affiche et si je sélectionne la cellule, la fonction bug avec un message d'erreur :

Le débogueur me renvoi sur la ligne :

Si je clique sur la cellule avant que la note s'affiche, ça fonctionne.

Pouvez vous m'aider ?

Bonjour et bienvenue,

NB : Utilisez de l'icone </> dans la barre de menu pour placer votre code lorsque vous mettez un code dans le fil de discussion. Ce sera plus lisible
J'ai corrigé votre post pour que vous voyiez

Pour votre demande, essayez votre code comme ceci

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
If Not Target.Comment Is Nothing Then
    With Target
        .Comment.Visible = True
        .HorizontalAlignment = xlLeft
        .VerticalAlignment = xlTop
        .ReadingOrder = xlContext
        .Orientation = xlHorizontal
        With .Comment
            .Shape.TextFrame.AutoSize = True
            .Visible = False
        End With
    End With
End If
End Sub

Si ok et terminé pensez à clôturer le fil

Cordialement

Merci.

J'admire votre maitrise sur ce forum