Incrémentation d'une donnée

Bonjour,

Je cherche une solution pour incrémenter un numéro d'adhérent de manière automatique:

Voir le fichier joint avec une petit macro. Ma macro ne me renvoi pas le nombre complet, les zéros sont absents

Cordialement

Bonjour consonnes, bonjour le forum,

Peut-être comme ça :

Public Sub Incrément()
Dim DL As Integer 'Dernière Ligne
Dim PF As String 'Partie Fixe
Dim AN As Integer 'Ancien Numéro
Dim NN As Integer 'Nouveau Numéro
Dim NNA As String 'Nouveau Numéro Adhérent

DL = Cells(Application.Rows.Count, "A").End(xlUp).Row
PF = Split(Cells(DL, "A").Value, "-")(0) & "-"
AN = CInt(Split(Cells(DL, "A").Value, "-")(1))
NN = AN + 1
NNA = PF & Format(NN, "0000")
Cells(DL + 1, "A").Value = NNA
End Sub

Bonjour ThauThéme

Un grand merci pour cette réponse rapide et qui me conviens parfaitement.

Cordialement A+