' Position de X et Y par rapport a l'écran
Private Declare Function GetCursorPos Lib "user32" ( _
lpPoint As POINTAPI) As Long
Private Type POINTAPI
X As Long
Y As Long
End Type
Sub XY() ' Ctrl+A => affiche les coordonnées du point sous le curseur en colonnes A et B
Dim cel As Range, pos As POINTAPI
Set cel = Range("A65536").End(xlUp)(2)
GetCursorPos pos
cel = pos.X
cel.Offset(, 1) = pos.Y
End Sub
Sub RAZ()
Range("A2:B65536").ClearContents
End Sub