Coller dans une autre appli (débutant)

Private Declare Function GetWindow Lib "user32" (ByVal hWnd As Long, ByVal wCmd As Long) As Long
Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hWnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Private Declare Function IsWindowVisible Lib "user32" (ByVal hWnd As Long) As Long
Private Declare Function GetDesktopWindow Lib "user32" () As Long

Private Sub CommandButton1_Click()
Dim hWnd As Long
Dim Titre_Fenetre As String * 255
Dim TitreFen As String
Dim j As Long
ListBox1.Clear  ' On vide la listbox

hWnd = GetWindow(GetDesktopWindow(), 5)
Do While (Not IsNull(hWnd)) And (hWnd <> 0) 'Passe en revue chaque fenêtre
      Titre_Fenetre = String(255, 0)  'Formate la chaine destinée à accueillir le titre de la fenêtre
      ret = GetWindowText(hWnd, Titre_Fenetre, 255)   'récupère le titre de la fenêtre et le nombre de caractères de ce titre
      If Titre_Fenetre <> String(255, 0) Then         'Si le titre n'est pas vide
            If IsWindowVisible(hWnd) = 1 Then         'Pour ne tenir compte que des fenêtres visibles (regardez ce que ça donne en retirant cette condition)
               TitreFen = Titre_Fenetre        'récupère le titre de la fenêtre
               TitreFen = Left(TitreFen, ret)  'sans les caractères supplémentaires finaux
               j = j + 1
               If Val(j) < 10 Then j = "0" & j
               ListBox1.AddItem TitreFen & "  [ " & hWnd & " ]" 'stocke le tout dans une listbox
            End If
      End If
      hWnd = GetWindow(hWnd, 2) 'cherche la fenêtre suivant
Loop
End Sub