Bonjour Sophie et à tous,
Pour d'autres besoins j'ai fais cette macro qui incrémente des numéros:
Sub Formeautomatique19_QuandClic()
Dim NumArticle As Integer
Dim LaDate
Sheets('Formulaire').Select
NumArticle = Application.WorksheetFunction.Max(Sheets('HistoriqueMP').Columns('B:B'))
Cells(3, 4).Value = NumArticle + 1
Cells(2, 4).Value = Date
End Sub
Dans mon cas c'est un bouton qui déclenche le nouveau numéro qui est la plus grande valeur de la colonne B de la feuille 'Historique' + 1 et la date du jour; il faudrait que tu adaptes le numéro à incrémenter et le déclenchement à l'ouverture du classeur. Je ne l'ai jamais fais pour moi mais en cherchant sur le forum tu dois trouver ça.
Espérant t'avoir aidé.
Bonne journée.