RRécupérez coordonnés de ma souris

[nilses]

Bonjour,

J'airais besoin de votre aide sur mon problème. J'arrive à récupérer les coordonnées de ma souris et à transformer les données en quelque chose "d'exploitable ". Je souhaite maintenant faire un Offset pour déplacer mon curseur par exemple 3 lignes en dessous, mais je n'y arrive pas.

Pourriez-vous m'aider,

Merci par avance,

Nilses

Voici mon code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Position As Variant
Dim sh As Worksheet
Dim titi As Variant

Position = Replace(Target.Address, Chr(36), "")
Position = Position

With sh
Set titi = sh.Range(Position).Offset(3).Value
End With

titi = titi

End Sub