Comment tester si le presse papier contient bien des données ? Si c'est le cas comment alors déclencher une macro ?

Tu peux utiliser cette fonction perso, à recopier dans un module standard :

Declare Function CountClipboardFormats Lib "user32" () As Long
 
 Function IsClipboardEmpty() As Boolean
 IsClipboardEmpty = (CountClipboardFormats = 0)
 End Function
 

Tu peux l'utiliser dans une feuille de calcul : =IsClipboardEmpty() ou dans du code vba :

sub test()
 Range("A1:L30").Copy
 MsgBox IsClipboardEmpty
 Application.CutCopyMode = False
 MsgBox IsClipboardEmpty
 end sub