Copier d'excel, Coller vers autre application

[Claudy]

Bonjour,
Il pourrait arriver avec certaines applications que le "Copier Coller" classique ne fonctionne pas, ou alors il faut passer par un éditeur de texte (wordpad, stickynote, ou autres...).
Personnellement, j'ai trouvé cette macro bien pratique, à placer dans le personal.xlsb et l'associer à une icône dans la barre d'outils d’accès rapide.
La macro:

Sub CopyToClipboard2()
'Activer: Outils>>Références>>MicrosoftForms 2.0 Object Library
   Dim objData As New MSForms.DataObject
    Dim strText

    strText = ActiveCell.Value
    objData.SetText strText
    objData.PutInClipboard
'éventuellement, dans un tableau, on connait ainsi la dernière valeur copiée.
With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 15773696
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
End Sub

Claudy