Bonjour,
un petit exemple, qui te renvoie le nom de l'interlocuteur dans un msgbox, après un clic droit sur la ville :
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("B3:H3")) Is Nothing Then
With Sheets("Interlocuteurs")
MsgBox "Interlocuteur de : " & Target & Chr(10) & _
Application.Index(.Range("A4:G4"), Application.Match(Target, .Range("A3:G3"), 0))
Cancel = True
End With
End If
End Sub
Code à coller dans l'évènement de la feuille "Nature des visites"
Faire un clic droit sur le nom de l'onglet, "Visualiser le code", et coller cette procédure
Bonne journée