Bonjour yenx25,
A tester :
Private Sub Workbook_Open()
Sheets("Feuille1").Range("A1").Value = Sheets("Feuille1").Range("A1").Value + 1
End Sub
Assurez-vous de remplacer "Feuille1" par le nom de la feuille où se trouve la cellule que vous voulez incrémenter, et "A1" par la cellule concernée.