Microsoft 365 couper/copier/coller le texte en tout ou partie dans le TextBox1 (casse méninges 1 du WE)

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With ComboBox1
    If .Visible Then .Activate: .Value = "": .Visible = False
End With
End Sub

Private Sub TextBox1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
If Button = 2 Then [E3].Activate: TextBox1.Activate: ComboBox1.Visible = True: ComboBox1.DropDown
End Sub

Private Sub ComboBox1_Change()
Dim n%
With ComboBox1
    n = .ListIndex
    If n = -1 Then Exit Sub
    .Value = "": .Visible = False
End With
TextBox1.Activate
CreateObject("WScript.Shell").SendKeys IIf(n = 0, "^x", IIf(n = 1, "^c", "^v")) 'envoi les touches
End Sub

Sub fontcolor()
 If Application.Dialogs(xlDialogEditColor).Show(2, 255, 0, 0) = True Then
 usf.Controls(Application.CommandBars.ActionControl.Tag).ForeColor = ActiveWorkbook.Colors(2)
End If
End Sub

Private Sub Combobox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
With ComboBox1
    If .Visible Then .SetFocus: .Value = "": .Visible = False
End With
End Sub

Private Sub TextBox1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
If Button = 2 Then TextBox1.SetFocus: ComboBox1.Visible = True: ComboBox1.DropDown
End Sub

Private Sub ComboBox1_Change()
Dim n%
With ComboBox1
    n = .ListIndex
    If n = -1 Then Exit Sub
    .Value = "": .Visible = False
End With
TextBox1.SetFocus
CreateObject("WScript.Shell").SendKeys IIf(n = 0, "^x", IIf(n = 1, "^c", "^v")) 'envoi les touches
End Sub

Sub ncopier()
    Dim valeur$
    valeur = usf.Controls(Application.CommandBars.ActionControl.Tag).Value
    If TypeName(CtrL) = "TextBox" Then
        If CtrL.SelLength > 0 Then If CtrL.SelLength < Len(CtrL.Value) Then valeur = Mid(CtrL.Value, CtrL.SelStart + 1, CtrL.SelLength)
    End If
    With CreateObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}"): .SetText valeur: .PutInClipboard: End With
End Sub

Sub ncoller()
    Dim valeur$, oldvaleur$
    With CreateObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}"): .GetFromClipboard: valeur = .GetText: End With
    If UBound(Split(valeur, vbCrLf)) = 1 Then valeur = Replace(valeur, vbCrLf, "")
    Select Case TypeName(CtrL)
    Case "ComboBox"
        'Control.Value = valeur'selectionne l'item
        Control.AddItem valeur    'j'ajoute un item a la combo (il faut quelle soit développée)
        Control.DropDown
    Case "TextBox"
        With CtrL
            oldvaleur = .Value
            If .SelStart > 0 And Len(.Value) > 0 Then
                .Value = Mid(oldvaleur, 1, .SelStart) & valeur & Mid(oldvaleur, .SelStart + 1, Len(.Value))
            Else
                .Value = valeur
            End If
        End With
    End Select
    'With CreateObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}"): .SetText "": .PutInClipboard: End With
End Sub

Sub ncoller()
    Dim valeur$, oldvaleur$
    With CreateObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}"): .GetFromClipboard: valeur = .GetText: End With
    If UBound(Split(valeur, vbCrLf)) = 1 Then valeur = Replace(valeur, vbCrLf, "")
    Select Case TypeName(CtrL)
    Case "ComboBox"
        'Control.Value = valeur'selectionne l'item
        Control.AddItem valeur    'j'ajoute un item a la combo (il faut quelle soit développée)
        Control.DropDown
    Case "TextBox"
        With CtrL
            oldvaleur = .Value
            If .SelStart > 0 And Len(.Value) > 0 Or .SelLength > 0 Then
                .Value = Mid(oldvaleur, 1, .SelStart) & valeur & Mid(oldvaleur, .SelStart + .SelLength + 1, Len(.Value))
            Else
                .Value = valeur
            End If
        End With
    End Select
    'With CreateObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}"): .SetText "": .PutInClipboard: End With
End Sub