XL 2016 (Résolu)formule numero de recu 1

[LABEHAUT]

Bonjour à tous le forum,

voici un petit fichier pour imprimer un reçu lors du payement de cotisation, je n'arrive pas à trouver une formule qui chaque fois que je fais une copie de l'onglet reçu mon numero de reçu augmente de 1 pour le suivant je joint le fichier
merci d'avance pour explications et réponses que vous pouvez me fournir.

 

[belkacem_64]

Bonsoir LABEHAUT

essai

Sub Iprimerecu()

Dim Rc As Worksheet
Set Rc = Sheets("Recu")
With Rc
.PageSetup.PrintArea = "A1:E14"
.Range("E2").Value = .Range("E2").Value + 1
.PrintOut
End With

End Sub

 

[LABEHAUT]

Bonjour belkacem_64,
j'ai fait un essai cela marche, comme c'est tout ce que je demandé c'est impeccable
encore un grand merci belkacem