XL 2019 Clic droit en F doit afficher la fenêtre de commentaire, prêt à saisir vierge. Qu'est-ce qui cloche ici ? ça copie...

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
    ' Annule le menu contextuel par défaut
    Cancel = True

    ' Vérifie si le clic droit est dans la colonne F (ou toute autre colonne)
    If Not Intersect(Target, Me.Columns("F")) Is Nothing Then
        ' Supprime le commentaire existant (si nécessaire)
        If Not Target.Comment Is Nothing Then
            Target.Comment.Delete
        End If

        ' Ajoute un nouveau commentaire vide prêt à être saisi
        Target.AddComment ""
        Target.Comment.Visible = True
        Target.Comment.Shape.Select
    End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    ' Masque tous les commentaires (sauf si on est en train d'en éditer un)
    Application.DisplayCommentIndicator = xlCommentIndicatorOnly
End Sub