Bonjour vs86963
Fait un peu à l'arrache mais cela fonctionne
Option Explicit
'activer la reference Microsoft Forms 2.0 Object Library
Sub copier_ds_pressepapier()
Dim S
Dim TXT_IMG As String
Dim x As New DataObject
For Each S In ActiveSheet.Shapes
TXT_IMG = S.TextFrame.Characters.Text
x.SetText TXT_IMG
x.PutInClipboard
Next S
End Sub