Declare Function SetCursorPos& Lib "user32" (ByVal X As Long, ByVal Y As Long) Private Sub CommandButton1_Click() ' Place le curseur aux coordonnées 300,300 à partir du coin en haut à gauche SetCursorPos 300, 300 End Sub