XL 2010 incrémentation automatique d'un numéro sous excel

[houp]

Bonjour,
Loin d'être une experte en macro, je n'arrive pas à mettre en place mon projet.
Je voudrais faire en sorte que lorsque l'on appuie sur un bouton de commande, un numéro s'incrémente automatiquement.
Exemple:
Dans mon fichier excel, j'ai à chaque ligne un numéro de formulaire suivant
STAB-PES-16-001
et je souhaiterais qu'a chaque fois que j'appuie sur un bouton de commande un numéro s'incrémente automatiquement (qu'il trouve le dernier et ajoute le suivant)
Exemple
STAB-PES-16-001
STAB-PES-16-002
STAB-PES (texte invariable)-16(année)-001 (numéro à incrémenter)
En vous remerciant par avance pour votre aide
Cordialement
Delphine

 

[phlaurent55]

Voir fichier joint

à+
Philippe

 

[houp]

Voir fichier joint

à+
Philippe

Bonjour Philippe
Un grand merci pour votre aide, super!
Delphine

 

[houp]

Re bonjour Philippe,
Je confirme je ne suis vraiment pas une experte en macro 🙁
Comment je peux faire pour qu'il trouve le dernier STAB-PES-16-000 et ajoute le suivant quelque soit la ligne
Car quand j'appuie sur le bouton de commande j'ai le STAB-PES-16-469 qui s'incrémente et non le STAB-PES-16-003
exemple avec mon fichier ci-joint
En vous remerciant pour votre aide
Delphine

 

[Dranreb]

Bonjour.

Sub Bouton1_Clic()
Dim Cel As Range
Set Cel = ActiveSheet.[B65535].End(xlUp)(2)
Cel.FormulaArray = Application.ConvertFormula( _
  "=""STAB-PES-16-""&TEXT(MAX(IF(LEFT(R5C:R[-1]C,12)=""STAB-PES-16-"",RIGHT(R5C:R[-1]C,3)+0,0)+1),""000"")", _
  xlR1C1, xlA1, RelativeTo:=Cel)
Cel.Value = Cel.Value
End Sub

 

[houp]

Bonjour.

Sub Bouton1_Clic()
Dim Cel As Range
Set Cel = ActiveSheet.[B65535].End(xlUp)(2)
Cel.FormulaArray = Application.ConvertFormula( _
  "=""STAB-PES-16-""&TEXT(MAX(IF(LEFT(R5C:R[-1]C,12)=""STAB-PES-16-"",RIGHT(R5C:R[-1]C,3)+0,0)+1),""000"")", _
  xlR1C1, xlA1, RelativeTo:=Cel)
Cel.Value = Cel.Value
End Sub

Super ça marche, merci beaucoup pour votre aide
Cordialement
Delphine