XL 2010 compteur de sauvegarde de 1 à 30

[mamadu]

Salut tout le monde,
je cherche un code compteur vba, qui me permet de d'enregistrer maximum 30 saisies dans ma base de données à travers le bouton valider, ensuite repart de 1

 

[vgendron]

Bonjour

c'est un peu léger comme demande...
sub compter()
Cpt=range("A1")
range("A1")=iff(cpt=cpt+1>30;1;cpt+1)
end sub