Numérortation automatique

Bonjour,

J'ai cherché mais sans succès... Je voudrais savoir s'il est possible que le n° en A4 augmente de 1 à chaque insertion de ligne svp?

Il est actuellement au n°1 et je souhaiterai qu'il passe au n°2 et ainsi de suite.

Merci d'avance.

Bonjour,

Essaie ainsi :

Sub INSERER()
    derln = Range("A" & Rows.Count).End(xlUp)(2).Row
    Range("A3:U4").Copy Range("A" & derln)
    Range("A3:U4").ClearContents
    derln = Range("A" & Rows.Count).End(xlUp).Row
    Range("A4") = Application.Max(Range("A4:A" & derln)) + 1
End Sub

Merci Jean-Eric,

C'est top ca fonctionne. Ca parait tellement simple quand on a la réponse....