Bonjour Kayser et le Forum,
Colle ce code dans l'événement de ta feuille,
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Dim Isect As Range
Dim macel As Range
'choix de la cellule
Set macel = Range('a1')'choix de ta cellule
If Not Application.Intersect(macel, Range(Target.Address)) Is Nothing Then
Target.Value = UCase(Target.Value)
macro1' ta macro
End If
Cancel = True
End Sub
Yves