Salut Dop, le Forum
Pour vider le presse papier il suffit de lui envoyer du vide...
Sub EmptyClipBoard()
With New DataObject
.SetText ""
.PutInClipboard
End With
End Sub
Attention nécessite (probablement) la référence à Microssoft 0ffice X.0 Objet Library...
Bonne Soirée
@+Thierry
PS Range("A1").Copy doit le faire aussi, mais au dessus on s'attaque au ClipBoard de Windows (à toutes fins utiles)