[VBA] pb inputbox

Bonjour,

Je soumets un petit pb aux experts, concernant INPUTBOX en VBA.

Code concerné :

Public Msg As String
Public Titre As String
Public Rng_Place_pointee As Range 'place pointée dans "gradins"
...
Workbooks(Class_gradins).Sheets("gradins").Activate
On Error GoTo SB_annule 'l'utilisateur a cliqué "annuler"
Set Rng_Place_pointee = Application.InputBox(Prompt:=Msg, Title:=Titre, Type:=8, Left:=500, Top:=50)
On Error Resume Next



Pb rencontré :

L'INPUTBOX marche d'une manière apparemment aléatoire : bien que cliquant toujours sur OK, la routine d'erreur "SB_annule" reçoit parfois la main, d'autre fois on passe bien en séquence.
Si je supprime l'instruction "on error goto ..." j'ai une erreur 424 aléatoirement.
APPLICATION a bien pour valeur "Microsoft Excel".


Configuration :

Windows/XP SP2
MS Office 2002 SP3


Merci pour la réponse, je patine dur ...