Récupérer le focus Excel

If Not Clipboard.GetImage Is Nothing Then

Option Explicit
Private Declare Function CountClipboardFormats Lib "user32" () As Long
Private Declare Function OpenClipboard Lib "User32.dll" _
(ByVal hWndNewOwner As Long) As Long

Private Declare Function EmptyClipboard Lib "User32.dll" () As Long

Private Declare Function CloseClipboard Lib "User32.dll" () As Long

Public Sub ClearClipboard() 'vide le presse papier
    Dim Ret
  Ret = OpenClipboard(0&)
    If Ret <> 0 Then Ret = EmptyClipboard
    CloseClipboard
End Sub
Sub Sample()
    If (CountClipboardFormats() = 0) = True Then
        MsgBox "Presse-papiers est vide"
    Else
        MsgBox "Presse-papiers n'est pas vide"
    End If
End Sub
Private Sub CommandButton1_Click()
Sample
End Sub
Private Sub CommandButton2_Click()
ClearClipboard  'vide le presse papier
End Sub

Option Explicit
Sub recupererTextePressePapier()
'nécéssite d'activer la référence "Microsoft Forms 2.0 Object Library." pour avoir accès insérer une UserForm
Dim Resultat As String
 With New dataObject
    .GetFromClipboard
    Resultat = .GetText(1)
End With
Application.Visible = True
ActiveWorkbook.Activate
'MsgBox Resultat
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
recupererTextePressePapier
End Sub

Option Explicit
Sub attente()
Dim PauseTime, Start, Finish, TotalTime
    PauseTime = 10    ' Set duration secondes a adapter
    Start = Timer    ' Set start time.
    Do While Timer < Start + PauseTime
        DoEvents    ' Yield to other processes.
    Loop
    Finish = Timer    ' Set end time.
    TotalTime = Finish - Start    ' Calculate total time.
    test 'lance la macro
End Sub
Sub test()
MsgBox "ceci est un test"
End Sub