Numérotation automatique à partir d'un nombre donné

Bonjour à tous,

J'ai un fichier qui fonctionne très bien grâce à ce forum mais je n'arrive pas à modifier une donnée.

Je voudrais que la numérotation de mes feuilles commence à 60 et non a 1.

Merci d'avance,

Sylvie

Bonjour,

A tester :

Sub Construit()

    Application.ScreenUpdating = False
    Sheets("Modèle").Visible = True
    finLg = Range("Suivi!A65536").End(xlUp).Row
    num = 59 + finLg
    Sheets("Modèle").Select
    Sheets("Modèle").Copy Before:=Sheets("Modèle")
    Sheets("Modèle (2)").Select
    Sheets("Modèle (2)").Name = "CE_N°" & num
    Range("B4") = num
    Range("Suivi!A" & finLg + 1) = num
    ActiveSheet.Shapes("AutoShape 115").Delete
    Sheets("Modèle").Visible = False

End Sub

Bonjour

Tu actives la feuille "Suivi" et, en A2 tu effaces tous les numéros en colonne A et tu mets 60 en A2.

Et les nouveaux contrats créés avec le bouton ''Nouveau contrat'' de la feuille ''Menu'' seront numérotés à partir de 61

A tester.

Super Jean-Eric ca marche très bien

Merci bcp,

Sylvie