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