Sub Coller_Texte()
contenu = GetTextFromClipboard
If contenu <> "" Then
Selection = "'" & contenu
End If
End Sub
Function GetTextFromClipboard()
On Error Resume Next
Dim Presspp As New MSForms.DataObject
Presspp.GetFromClipBoard
GetTextFromClipboard = Presspp.GetText
End Function