Bonjour à tous, je vous remercie pour vos réponses. A toutes fins utiles, je pense que j'ai trouvé la solution. En insérant un ActiveX et lui intégrant une image et avec ce code :
Private Sub MyImage_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Dim cell As Range
Dim img As OLEObject
Set img = Me.OLEObjects("MyImage")
' Convertir les coordonnées de l'image en coordonnées de la feuille
Dim sheetX As Single
Dim sheetY As Single
sheetX = img.Left + X
sheetY = img.Top + Y
' Déterminer la ligne et la colonne correspondant aux coordonnées
Dim row As Long
Dim col As Long
row = Int(sheetY / Me.Rows(1).Height) + 1
col = Int(sheetX / Me.Columns(1).Width) + 1
' Vérifier que les coordonnées sont dans les limites de la feuille
If row > 0 And row <= Me.Rows.Count And col > 0 And col <= Me.Columns.Count Then
' Déterminer la cellule sous les coordonnées
Set cell = Me.Cells(row, col)
' Écrire l'adresse de la cellule en A1
Range("A1").Value = cell.Address
Else
' Si les coordonnées sont hors limites, afficher un message d'erreur
MsgBox "Le clic est hors des limites de la feuille de calcul.", vbExclamation
End If
End Sub
Merci à tous d'avoir pris le temps de me répondre et désolé si mon double post a pu être gênant