XL 2019 PB de copier de valeur dans le presse papier

Option Explicit

'Pour utiliser le type DataObject il faut avoir la référence de "Microsoft Forms 2.0 Object Library"
'dans les références du Projet VBA (VBA / Outils / References [/ Parcourir si besoin]).
'S'il faut parcourir, aller dans C:\Windows\SysWOW64\FM20.DLL pour trouver cette référence !
'-------------------------------------------------
'-------------------------------------------------
'Placer une chaine de caractères dans le Clipboard
'-------------------------------------------------
Sub PutInClipBoard(Chaine As String)
    Dim DataObject As New MSForms.DataObject
    
    If Len(Chaine) > 0 Then
        With DataObject
            .SetText Chaine
            .PutInClipBoard
        End With
    End If
    
    Set DataObject = Nothing
End Sub

'---------------------------
'Check the Clipboard content
'---------------------------
Function GetFromClipBoard() As String
    Dim DataObject As New MSForms.DataObject
    
    With DataObject
        .GetFromClipBoard
        On Error Resume Next
        GetFromClipBoard = .GetText
        On Error GoTo 0
    End With
    
    Set DataObject = Nothing
End Function

'---------------------------
'Effacement du presse-papier
'---------------------------
Sub ClearClipboard()
    Dim DataObject As New MSForms.DataObject
    
    With DataObject
        .SetText ""
        .PutInClipBoard
    End With
    
    Set DataObject = Nothing
End Sub

Sub coller()
  ActiveSheet.Paste
  End Sub

Sub coller()
 Dim MSForm As Object
     Set MSForm = New DataObject
    MSForm.GetFromClipBoard
    ActiveSheet.Range("A1").Value = MSForm.GetText
    Set MSForm = Nothing
 End Sub