Macro numérotation automatique d'une colonne

Bonjour

Je désire faire la macro suivante. Dans une colonne (que l'on va nommer A), il y a des articles numérotés qui sont dans l'ordre. Il m'arrive d'y insérer d'autres numéros articles)

Et je voudrais que la macro numérote automatiquement et dans l'ordre, à partir de l'endroit que je désire. Je vous joins un fichier Excel, ou il y a la macro que j'utilise actuellement, mais le problème c'est que cette macro fonctionne uniquement sur une ou des plages figées.

Je pense qu'en ayant le fichier, vous serez plus à même de comprendre là ou je souhaiterais en arriver.

Merci pour votre aide

Henri66

Bonjour à tous,

Pas facile, avec la structure de ton fichier !

- Une petite préparation est nécessaire pour ancrer des repères macro.

("Fin" de chapitre et "Stop") voir encadré sur fichier.

- Faire la même préparation sur chaque feuilles.

Sub InsertEtNum()
''Macros par Claude Dubois pour "henri66" le 2 juillet 09
Dim DerLig&, Num
    DerLig = Cells.Find("*", , , , xlByRows, xlPrevious).Row
    Application.ScreenUpdating = False
        Range("b2").Select
    Do While ActiveCell <> "Stop"
            Num = 1
        Do While ActiveCell <> "Fin"
            Selection.End(xlDown).Select
            If Selection = "Stop" Then Exit Do
            If Selection = "Fin" Then
                ActiveCell.Offset(1, 0).Select
                Exit Do
            End If
            Selection = Num
            Num = Num + 1
        Loop
    Loop
End Sub

Fichier:

https://www.excel-pratique.com/~files/doc2/Chaussee.zip

Amicalement

Claude.

Je te remercie.Je vais l'essayer aussitôt

Merci pour ton aide

henri66

Bonsoir,

Alors ces essais ?

Si c'est bon, n'oublie pas de solder le fil

Amicalement

Claude.