insertion de numero

Bonjour Skull,

J'espère que ce bout de code te permettra d'avancer :

Private Sub CmdAjout_Click()
Dim I As Variant

'Compte le nombre de feuille et insére le chiffre en A1 de la Feuil1
For I = 1 To Sheets.Count
With Sheets("Feuil1")
.Range("A1").Value = I + 1
End With
Next I

'Créer une nouvelle feuille avec comme nom la valeur de A1
Sheets.Add.Name = I

Sheets("Feuil1").Select

End Sub

A bientôt

Ludwig

Bonsoir Rapidos

Dans le style code ultra short :

Sub AddNumSheets()
ActiveWorkbook.Sheets.Add.Name = Worksheets.Count + 1
End Sub

Bonne Soirée
@+Thierry