Comment passer du 32 bit en 64 bit (probleme de macro)

bonjour

je cherche a passer du 32 bit au 64 bit pour un fichier

erreur de compilation du module caché

Declare Function GetKeyState Lib "user32.dll" (ByVal KeyCode As Long) As Integer

Const VK_LBUTTON = &H1

Const SHIFT_KEY = 16

Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long

Type POINTAPI

x As Long

Y As Long

End Type

Dim lngCurPos As POINTAPI

Dim newRange As Range

si quelqu'un peut m'aider

merci d'avance

Bonjour

Il suffit de'ajouter PtrSafe après Function

Declare Function PtrSafe GetKeyState Lib "user32.dll" (ByVal KeyCode As Long) As Integer
.....
...
Declare Function PtrSafe GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
...
...