Bonjour
Tout d'abord merci d'avoir répondu à mon message.

Tu me dis : "Il a en effet pu faire cela car il utilise l'évènement (VBA) associé. Pour pouvoir faire ce que tu désires il faudrait disposer d'un évènement "KeyDown" qui n'existe pas pour une Sheet Excel :-( "

Je dois t'avouer que j'ai déjà décroché ! Je suis comme une poule devant un écrou de 12.
En revanche je pense avoir compris la suite. Je ne veux pas spécialement utiliser cette combinaison de touches, mais je n'arrive pas à sélectionner ma macro dans le menu car dès que je la nomme, elle ne fontionne plus.

Voici la totalité de la macro :


Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)

'si on sélectionne hors A1:10000 ou si la feuille active est "ventes" ou "stok" :sortie de la macro
If Intersect(Target, Range("A1:A10000")) Is Nothing _
Or ActiveSheet.Name = "ventes" Or ActiveSheet.Name = "stock" Then Exit Sub

'détruit dans la feuille la ligne correspondant à la valeur sélectionnée en feuille active
With Sheets("stock")
On Error GoTo erreur:
.Rows(.Columns(1).Find(Target.Value, .Range("A65536"), xlValues).Row).Delete
End With

'report dans la 1° ligne vide de "ventes" des valeurs de la ligne sélectionnée dans feuille active
With Sheets("ventes")
.Rows(.Range("A65536").End(xlUp).Row + 1) = Rows(Target.Row).Value
End With

'ligne de la sélection feuille active
lig = Target.Row
'tableau des num de colonnes à effacer
cellule = Array(3, 4, 6, 7, 9, 10, 12, 13, 15, 16, 18, 19, 21)

'boucle sur le tableau en effacant le contenu
For cptr = 0 To UBound(cellule)
Cells(lig, cellule(cptr)).ClearContents
Next

'colorie la ligne en gris
Rows(lig).Interior.ColorIndex = 48
Exit Sub

erreur:
MsgBox Target & " inconnu dans le stock"
End Sub

Si je nomme cette macro pour l'avoir dans le menu, par exemple si en tête je rajoute

Sub Objets_vendus()
' Objets_vendus Macro
' Macro enregistrée le 15/10/2009 par

Elle ne fonctionne pas et me dis "End sub attendu" avant la première ligne de la macro.
J'espère ne pas avoir été trop confus.
Amicalement