Hi Jos,
You can use Internet Explorer object:

Sub PutInClipBoard()
ClipBoardText = InputBox("Enter some text:" _
, "Test Clip Write / Read" _
, "Enter what you want on the clipboard here")
With CreateObject("InternetExplorer.Application")
..Navigate "about:blank"
..document.ParentWindow.ClipboardData _
..SetData "text", ClipBoardText
..Quit
End With
Cells(1, 1).Select
ActiveSheet.Paste
End Sub

Regards,
MP

"Jos Vens" a écrit dans le message de
...
Hi,

I wonder if you can put some predefined text on the clipboard (not the
contents of a cell - dashed line) but a text like you should copy in any
program (and like you can copy a part of text in the formulabar of a whole
line).

I'd like to paste it back when I'm inputting in a cell when the user needs
it (ctrl-v works then).

thanks
Jos Vens