Macro boite de dialogue

[Dja64]

Bonjour,
Je rencontre actuellement un problème avec une petite base de donnée que je fais sous excel. J'ai créé un bouton "supprimer" et quand on clique dessus une boite de dialogue s'ouvre pour demander le numéro de la ligne que l'on veut supprimer. La suppression de ligne fonctionne bien mais, quand on décide de supprimer aucune ligne et que l'on clique sur annuler un message d'erreur apparait. Ma macro est la suivante:
Dim titre As String
titre = InputBox("Pour supprimer une ligne, tapez le numéro de cette ligne puis cliquez sur entrée." & vbCrLf & "Pour supprimer les lignes de 2 à 6, tapez 2:6, puis cliquez sur entrée")
If titre = vbCancel then
Else
Rows(titre).Select
Selection.Delete Shift:=xlUp
Range("A3").Select
End If

Aidez moi SVP!

 

[Arnaud]

salut,

écris If titre = "" then
à la place de If titre = vbCancel then

tu peut même mettre

If titre = "" Or IsNumeric(titre) = False Then

pour évité d'avoir du texte.