Microsoft 365 VBA : Commentaire en B, C, D après clic droit dans n'importe quelle cellule de cette plage ?

Option Explicit
Private lastCmt As Comment

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
    If Target.Column < 2 Or Target.Column > 4 Then Exit Sub
   
    Cancel = True
    Application.DisplayCommentIndicator = xlCommentIndicatorOnly
   
    If Not lastCmt Is Nothing Then
        lastCmt.Visible = False
        Set lastCmt = Nothing
    End If

    If Target.Comment Is Nothing Then
        Target.AddComment "" 'sinon AddComment2 pour Office 365
        With Target.Comment.Shape
            .Width = 180
            .Height = 60
            .Fill.ForeColor.RGB = vbWhite
           ' .Line.Visible = msoFalse
        End With
    End If

    With Target.Comment
        .Visible = True
        .Shape.Select
    End With
   
    Set lastCmt = Target.Comment
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not lastCmt Is Nothing Then
        lastCmt.Visible = False
        Set lastCmt = Nothing
    End If
End Sub

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
    ' Applique aux colonnes B, C, D (2, 3, 4)
    If Target.Column >= 2 And Target.Column <= 4 And Target.Count = 1 Then
        Cancel = True ' Annule le menu contextuel
        
        ' Configuration de l'affichage des commentaires
        Application.DisplayCommentIndicator = False 'il ne s'affiche pas au survol
        
        ' Crée un nouveau commentaire si nécessaire
        If Target.Comment Is Nothing Then
            Target.AddComment Text:="" ' Crée un commentaire vide
        End If
        
        ' Rend le commentaire visible et éditable
        On Error Resume Next
        With Target.Comment
            .Visible = True 'on le met visible d'office (pas besoins du survol)
            With .Shape
                .Width = 200 'on dimensionne le width
                .Height = 150 'on dimensionne le height
                .Select ' Active l'édition immédiate
            End With
        End With
        DoEvents 'ON LAISSE LES EXECUSSIONs AUTRES SE FAIRE UN PEU
        Application.SendKeys " +{Backspace}" 'on tape un espace et un retour en arriere pour que le caret cligonant d'edition soit au debut
        Application.SendKeys "" ' réactive le pavé numérique si besoin
    End If
    ' Ne pas forcer l'affichage du commentaire
End Sub


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    For Each c In ActiveSheet.Comments
        c.Visible = False
    Next
End Sub

Option Explicit
Private lastCmt As Comment

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
    Const FIRST_COL As Long = 2
    Const LAST_COL  As Long = 4
    
    If Target.Column < FIRST_COL Or Target.Column > LAST_COL Then Exit Sub
    Cancel = True
    Application.DisplayCommentIndicator = xlCommentIndicatorOnly

    If Not lastCmt Is Nothing Then
        If Not lastCmt Is Target.Comment Then lastCmt.Visible = False
        Set lastCmt = Nothing
    End If

    Dim cmt As Comment                     'ou As Object si AddComment2
    If Target.Comment Is Nothing Then
        Set cmt = Target.AddComment("")    'AddComment2 pour Office 365 « Comments »
        With cmt.Shape
            .Width = 180   'change la taille ici en largeur
            .Height = 60   'change la taille ici en hauteur
            .Fill.ForeColor.RGB = vbWhite  'fond blanc
            '.Line.Visible = msoFalse       'pas de bordure
        End With
    Else
        Set cmt = Target.Comment
    End If

    On Error Resume Next           'empêche un débordement si déjà sélectionné
    cmt.Visible = True
    cmt.Shape.Select               'place le curseur dans la note
    On Error GoTo 0
    
    Set lastCmt = cmt              'nouvelle « note courante »
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not lastCmt Is Nothing Then
        lastCmt.Visible = False
        Set lastCmt = Nothing
    End If
End Sub