Convertir ce par avec MouseMove

[sebt56]

bonjours,
je voudrai que en A1 s'afficher le numéro de la ligne que survol la souris.
j'ai trouvé ce code mais je n'arrive pas a le convertir en mousemove
Merci

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, _
ByVal Target As Range)
ActiveSheet.Range("A1").Value = ActiveCell.Row
End Sub

 

[BOISGONTIER]

Re : Convertir ce par avec MouseMove

Bonjour,

Les images et shapes

JB