Salut Moumout
UNe soluce VBA... Il suffit d'avoir un compteur dans une feuille (même une cellule cachée) en suite ce devrait donner çà :
Sub Compteur()
Dim i As Integer
Dim An As String
i = Sheets("Feuil1").Range("A1").Value
An = "2003/"
i = i + 1
Sheets("Facture").Range("E5").Value = An & Format(i, "000")
Sheets("Feuil1").Range("A1").Value = i
End Sub
C'est pas très compliqué... On peut mettre ce code en macro évènementielle si nécessaire...
Bonne Soirée
@+Thierry