Demande code vba

Bonjour à vous tous,
Ma question :
Sous Excel 2003 Feuil1, j'ai en ligne 1 :
N° (en A1) Titres (en B1)

Est-il possible que lors de la saisie du titre, le numéro se mette automatiquement dans la colonne A de façon chronologique, en bleu.

Ex : __N° _______Titres
(A2) 0001 Ma première saisie
(A3) 0002 Ma seconde saisie
Je vous en remercie

Code à mettre dans le module de la feuille

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Private Sub Worksheet_Change(ByVal Target As Range)   If Target.Column = 2 And Target.Row > 1 Then If Target.Count = 1 Then Application.EnableEvents = False If Target.Value <> "" Then With Target.Offset(0, -1) .Value = Val(Target.Offset(-1, -1).Value) + 1 .NumberFormat = "00000" End With Else Target.Offset(0, -1).ClearContents End If Application.EnableEvents = True End If End If End Sub

---

Je vous en remercie infiniement mercatog.