Comment ne rien faire dans une sub

Phillip à dit:

Bonjour,

J'ai crée une sub dans une feuille qui procède à différentes actions dans mon classeur, déclenchée par la saisie du mot "imprevu"

Private Sub Worksheet_Change(ByVal Target As Range)

If Target = "imprevu" Then
action 1
action 2
etc...
endif

Ca marche très bien, sauf que si je rajoute ou supprime des lignes manuellement dans mon fichier j'ai une erreur. J'ai donc rajouté :

Private Sub Worksheet_Change(ByVal Target As Range)

If Target <> "imprevu" Then
Exit Sub


ElseIf Target = "imprevu" Then
action 1
action2
etc...
endif
Et mon exit sub ne marche pas....Je ne comprends pas...

merci de vos lumières

Phillip

Cliquez pour agrandir...