Userform faisant apparaitre un clavier pour taper un nom

'### APIs et Constantes ###
Private Declare Function ShellExecute& Lib "shell32.dll" Alias "ShellExecuteA" ( _
  ByVal hwnd&, ByVal lpOperation$, ByVal lpFile$, _
  ByVal lpParameters$, ByVal lpDirectory$, ByVal nShowCmd&)
Private Const SW_SHOWNORMAL = 1

Private Declare Function FindWindow& Lib "user32" Alias "FindWindowA" ( _
  ByVal lpClassName$, ByVal lpWindowName$)
  
Private Declare Function PostMessage& Lib "user32" Alias "PostMessageA" ( _
  ByVal hwnd&, ByVal wMsg&, ByVal wParam&, ByVal lParam&)
Private Const WM_CLOSE As Long = &H10
'###########################
 
Private Sub ClavierShow()
ShellExecute Application.hwnd, "open", "osk.exe", vbNullString, vbNullString, SW_SHOWNORMAL
End Sub

Private Sub ClavierClose()
PostMessage FindWindow(vbNullString, "Clavier visuel"), WM_CLOSE, 0, 0
End Sub

Private Sub UserForm_Activate()
Call ClavierShow
End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Call ClavierClose
End Sub