Sub ToucheEntree(Arg1)
'La feuille où le raccourci doit s'appliquer
If Arg1.Name = "COUCOU" Then
If ActiveCell.Address = "$D$4" Then
Application.OnKey "~", "Coucou"
Application.OnKey "{ENTER}", "Coucou" 'pour le pavé numérique
Else
'les autres feuilles/cellules où le raccourci ne doit pas s'appliquer
Application.OnKey "~"
Application.OnKey "{ENTER}"
End If
End If
End Sub